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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 
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1620 USERS GROUP PR OGB AM REVI EW AND EVALUATION 



Program No. Date. 

Program Name:- r 



1. Does the abstract adequately describe what the program is and 

what it does? Yes No 

Comment 



Mr. Robert J". Robinson (PREP) Company 
Marquette University 

Computing Center Address 
1515 W. Wisconsin Avenue 

Milwaukee 3, Wisconsin User Group 

Code 



2. Does the program do what the abstract says ? Yes No 

Comment__ 

3. Is the Description clear, understandable, and adequate? Yes No 

Comment 

4. Are the Operating Instructions understandable and in sufficient 

detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes. No_ 

Are the mnemonic labels identified or sufficiently 

understandable? Yes No 

Comiii ent_ * 

5. Does the source program compile satisfactorily (if applicable)? Yes No 
Comment . 

6. Does the object program run satisfactorily? Yes No 

Comment „„______, . 

7. Number of test cases run 



Are any restrictions as to data, size, range, etc. covered 

adequately in description? Yes No_ 

Comment _ 

8. Does the Program meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment : _ 

9. Please list any suggestions to improve the usefulness of the 
program. These will be passed on to the author for his consideration. 
Comment , _____^______™____ 

Please return to: Your Name 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBER3 ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 
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1620 USERS GROUP LIBRARY" 
PROGRAM ABSTRACT 



TITLE; PDQ FORTRAN (An Interpretive Program for the Fortran Language) 

Author; Organization; P*ank H. Maskiell, Pennsylvania Transformer Division, 

McGraw-Edison Company, Canons burg, Pa* l£31? 

Date; November l£, 1963 Users Group Membership Code ; 3081 

Direct Inquiries to Name; Frank H. Maskiell Phone ; Ul2 7U5-9100 Ext, 20$ 
~~ "~ " ~ Pennsylvania Transformer Division 

McGraw-Edison Company 
Canonsburg, Pennsylvania 15317 

Description/Purpose ; PDQ FORTRAN is a modification of the UTO Fortran and 
Fortran with Format, which utilizes floating point variables in the "excess $0 n 
notation. In the hundred plus programs compiled to date by the system, the 
object time running is less, the size of the object deck is smaller, and core 
storage requirements for the object program, subroutines, and data is less 
than any other Fortran system without floating point hardware. 

Specifications s 

A. Storage Used by Program; The Processor requires 18008 digits 
permitting 199 symbol table entries on 20K, 2199 symbol table 
entries on l*0K. Class "A" Subroutines for the object program 
require 6600 digits ♦ Instructions of the object program begin 
loading in location 6600. 

B. Equipment Required by Program; Card System; Auto Divide. 
Program will operate on 20K and will internally adjust for any 
additional storage available. Programs may be compiled on a 
machine kOK or greater, for a machine of lesser capacity by 
means of a control digit, 

C. The Processor and Subroutines are written in SPS and then compressed. 

Additional Remarks : Any program in FO-OOU language may be compiled in the 
System; however, additional language facilities are included. The F0-00U 
language has been expanded in the PDQ FORTRAN system to includes (a) CCMMON 
statement for reserving locations in the symbol table for nonsubscripted and 
subscripted variables, (b) batch compilation of programs without subroutines, 
(c) continuation cards for Format and input/output statements, (d) repetition 
of field format (nFw.d) etc.— Format also includes an A and a D specification, 

(e) listing or punching of referenced source statements and symbol table, 

( f ) PROCEDURE statements permitting a group of Fortran statements to be utilized 
as a subroutine similar to the Fortran n Subroutine subprogram, (g) TRACE 
facility without generating additional instructions in line and including the 
address as well as the magnitude of the variable at running time,-- The format 

of TRACE at object time may be altered by a single instruction, (h) two subroutine 
decks, one permitting a relaxed input format requiring only that a space or blank 
column separate input variables, and the second requiring input data to be in the 
precise format of the input statements — -Either subroutine deck may be used with 
the compiled object program depending on the format of data to be used. 



DECK LABEI2 



DECK 1? PDQ FORTRAN Processor 02 consisting of 2l& cards • 

DECK 2: PDQ FORTRAN Subroutines Free Form (11-63) for (howf* 
Relaxed Input Format consisting of 2U6 cards • 
Cards thru kl constitute the Subroutine Relocator. 
Cards 1000 thru 7017 constitute Relocatable 
Subroutines with the system. Cards 2U000 thru 21*109 
constitute the Class "A" Subroutine Package . 

DECK 3 1 PDQ FORTRAN Subroutines Fixed Format (11-63) consisting 
of 2U6 cards for input of data conforming to the precise 
input format specification. Cards thru U7 constitute 
the Subroutine Relocator* Cards 1000 thru 7017 consti- 
tute Relocatable Subroutines with the system. Cards 
2^000 thru 2?111 constitute the Class "A" Subroutine 
Package. 

DECK hi Sample PDQ FORTRAN Test Source Deck 

DECK •$ % Sample Data for Free Form Input 

DECK 6 % Sample Object Deck compiled from DECK U. 

DECK 7 • PDQ FORTRAN Processor CLC2 consisting of 236 cards. 

DECK 8: PDQ FORTRAN Processor CLT2 consisting of 236 cards, j . ■?, 
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PDQ FORTRAN for the 1620 




Introduction 



The PDQ FORTRAN system follows the language features of Fortran with Format, FO-OOU. 
However, the variables of this system are in "excess 5>0" notation, a characteristic 
of Fortran without Format, F0-O02. The object deck prepared is of minimum size 
which may optionally have the subroutines punched immediately thereafter or which 
may have the subroutines loaded at object time running. Two alternate processors 

are available in the system to provide a larger symbol table at compile time 

See System Options. 

Fortran Specifications 

Any program written in FO-OOU language can be run in this system without additional 
change. However, additional statements are possible in this system as elaborated 
hereafter* 

Permissible Statements 

A. Arithmetic Statements: 

A 8 B op C etc. 
8. Control Statements; 
1. QO TO n 



U. IF (SENSE SWITCH i) r^, n, 

5. DO n i ■ m , m or 

1 2 

DO n i * m , m • m 
1 2* 3 

6. BEGIN PROCEDURE n 

7. RETURN n 

8. END PROCEDURE n 

9. EXECUTE PROCEDURE n 

10. CONTINUE 

11. CONTROL m 

12. PAUSE 
13* STOP m 
1U. END 



2. GO TO (r^, n^, ~ 

3. IF (a) n x , n ? , n, 
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l£. BEGIN TRACE 
16. END TRACE 
C. Input/Output Statements: 



1. 


READ n, 


list 


2. 


PUNCH n, 


list 


3. 


ACCEPT n, 


list 


k. 


PRINT n, 


list 


5. 


TYPE n, 


list 



D. Specification Statements: 

1. CCMMON 

2. 1HMENSI0N 
3o FORMAT 

E. Fixed Point Arithmetic 

The operators + , - and # in the fixed point mode give results 
MOD lOOOO. Hence, the addition of 9998 and h gives 2 with no error 
detection due to the overflow. Should division by be attempted, 
an error overflow will be indicated. 

F. Relocatable Subroutines 

1. SIN and COS - evaluates sin (x) or cosine (x) 

Method - Hastings approximation with improved reduction to first 
quadrant. 

Length - 6£o digits 

Speed - 128 msec. 

Accuracy - Error not more than one in last digit of mantissa for 
all angles, except sine of angles near "|f /2 and 
cosine of angles near zero, when error occasionally 
roaches two in last digit. 

Notes If all significance is lost, typewriter will indicate OPLO. 
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2, EXP - evaluates e x 

Method - Addition loop successively multiplies 1.0 by 2, 1.1, 

1.01, 1.001, and 1.0001, reducing argument by the logs 
of those factors until argument mantissa is less than 
0.0001; approximation exp(x) « 1 + x is then used. 

Length - 500 digits 

Speed - 76 msec. 

Accuracy - Error not more than one in last digit of mantissa for 
positive arguments, not more than two for negative 
arguments • 

3» LOG - evaluates log x 

e 

Method - Addition loop successively multiplies argument by 

2, 1.1, 1.01, 1.001, and 1.0001, accumulating negative 
logs of those factors until argument mantissa is greater 
than 0,9999; approximation log x » x - 1 is then used. 

Length - £68 digits 

Speed - 79 msec. 

Accuracy - Error not more than one in last digit of mantissa for 

arguments greater than 2,0 or less than 0.95 fo r arguments 
closer to one, loss of accuracy is inevitable, but 
routine is always more precise than is x - 1. 

Lu SQRT - evaluates n/x~ 

Method - Odd- integer method generating result by adding complements. 

Length - 360 digits 

Speed - 116 msec. 

Accuracy - Perfect, rounded to an eight-digit mantissa. 
5. ABS - evaluates \ x | 

Method - Load dividend to FAC. 
Length - 20 digits 
Speed - 1 msec. 
Accuracy - Perfect 



6. DRH - drops decimal digits of a variable 
Method - Obvious 

Length - 172 digits 
Speed - msec. 
Accuracy* - Perfect 

7. ATAN - evaluates arctan (x). Result is in the range arctan(jt)^ 

Method - Table look-up and reduction of argument to less than 0.1 % 
three-term Chebyshev approximation is then used* Result 
is complemented (if necessary) in fixed-point avoiding 
loss of last digit in ESB. 

Length - 818 digits 

Speed - 126 msec, for argument less than 1 
178 msec, for argument 1 or over 

Accuracy - Error not more than one in last digit of mantissa. 

Additional Specifications 

A. PROCEDURES 

A procedure is defined as a group of FORTRAN statements which are 
to be executed as a unit more than once in any larger program. Such 
a group of statements is preceded by a statement 

BEGIN PROCEDURE n 

where n is a procedure number. This number must not appear anywhere in 
the program as a statement number, and cannot be used in more than one 
procedure. N.B. 

The procedure statements must be followed by the statement 

END PROCEDURE n 

where n is the procedure number of the preceding procedure. 

The procedure n may be executed at any time by the statement 

EXECUTE PROCEDURE n 

which transfers control to the statement immediately following the 
BEGIN PROCEDURE n statement and obeys the statements of procedure n until 
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a) the END PROCEDURE n statement is executed, which transfers control 
to the statement immediately following the EXECUTE PROCEIXJEE n 
statement that entered the procedure^ 

b) a RETURN n 

statement is executed. This returns control to the statement 
immediately following the EXECUTE PROCEDURE n statement that 
entered the procedure. A RETURN statement is valid only within 
the procedure from which it returns control* 

Any statement may be included within a procedure, including EXECUTE 
PROCEDURE statements referring to other procedures, except: 

a) BEGIN PROCEDURE, RETURN, or END PROCEDURE statements referring to 
other procedures • 

b) EXECUTE PROCEDURE referring to the procedure within which it is placed. 

B. CONTROL m 

This statement controls the typewriter carriage, 

m « 101 spaces typewriter 

m ■ 102 returns typewriter carriage 

m ■ 108 tabulates 

C. PAUSE 

The program execution is halted by a 1$ OP CODE in the main line 
program. The "P" address of the instruction contains the address of 
the halt instruction. Depression of the "START" key will cause the 
computer to continue to the next program instruction* 

D. STOP m 

The program execution is halted after the carriage is returned and 
STOP m is typed. If m is omitted, STOP 0000 will be typed. Depressing 
"START" will cause the computer to continue to the next program instruction. 

E. END 

The program execution is halted after the carriage is returned and 
END is typed. Depressing "START" will cause the carriage to return and 
END to be typed. 

F. TRACE 

The results of all arithmetic statements may be traced without the 
generation of any additional instructions. Replacement type statements, 
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that is i A « B) C s D(K)j I 8 J; will not be traced since no arithmetic 
operation is required and, hence, FAC is not used. If the replacement 
statement includes a subscripted variable on each side of the equality, 
the statement may be traced. The tracing at object time is by the use 
of SWITCH U. 

BEGIN TRACE will turn on the trace feature. This will replace the 
normal EM FAC instruction (26 ADDR, FAC) with a combination "EMFAC-TRACE 1 ' 
instruction (17 £MTR,ADDR) . Each arithmetic statement thereafter will 
permit tracing. Tracing will be terminated when an END TRACE card is 
encountered. Succeeding statements will not be traced until another 
BEGIN TRACE is read. 

G. PRINT 

Print n , list will cause the variables in the list to be printed 
according to the format specification n after a carriage return has been 
executed. This conforms with the print statement of FO-OOli. No indexing 
is permissible within the list* 

H. TYPE 

Type n , list performs the same function as Print n 3 list with 
the exception that no carriage return will be executed prior to the output 
of data. This will permit the printing of columns of data utilizing the 
typewriter tab settings and the Control 108 statement. 

I. INPUT/OUTPUT LISTS 

If the length of the list in an input/output statement requires more 
characters than are available before column 73, the list may be continued 
on the next card. Terminate the partial list preceding a continuation 
with a comma. The next card must have a digit punched in column 6 followed 
by the continuation of the list. The use of more than 3 or U continuation 
cards may generate a format string exceeding hoO digits which will destroy 
the compiler. Hence , some discretion is required© 

J. COMMON 

The common statement is followed by a list of variables whose object 
time addresses will begin in the first symbol location after the function 
symbols. This will enable the assignment of addresses to symbols common 
in several programs. Dimension variables which are listed in com on 
statements will have the necessary space reserved and must not be again 
listed in a Dimension statement. CAUTION: The Common statements ) must 
be the first compiled statement in the program* 



Example j CCMMON A,B,C,D(2,U),E 



FORMAT 



Two subroutine decks are included with this system to permit input 
data to be in either a fixed format or a relaxed format. Should a desired 
set of specifications require more characters than are available on the 
format card; the specifications may be continued on the next card beginning 
in column 7* A digit must be punched in column 6. A single format speci- 
fication may not be split between cards* Any format card to be followed by 
a continue card should terminate with a comma in anticipation of another 
format specification. The duplication of the format statement number on 
continuation cards in columns 1 thru £ is optional. 

Permissible format specifications include I type (Iw), F type (Pw.d), 
E type (Ew.d), D type (Dw), A type (Aw), X type (wX), and H type (wH). 
All of the numerical field specifications and the A specification may have 
fields repeated by preceding the specification by the number of required 
repetitions such as (3510.2) which is the equivalent of ( 510.2,F10.2,F10.2). 

I TYPE 5 The 1 specification defines a field of w characters from 
whichTor 'into whicS data will be transferred* The data must be in fixed 
point notation (maximum of h digits), however, the field width, w , is not 
so limited. On output, the sign of the variable will precede the digits, 
hence, a minimum field width of 5 is required to insure complete output 
of a fixed point number. Should the field width be less than one plus 
the digits to be output, the low order digit or digits will be lost and 
the output data will be in error. 

Examples .Fixed point number minus Ikh is output under an 13 specification. 
The result will be ~lU which, of course, is incorrect. 

F TIFEj The F specification defines a field width of w characters 
from which or into~which floating point data will be transferred. If a 
decimal point is not included in input data, the last d characters of the 
field will be recognized as decimal digits • On output, if the numerical 
value of the variable requires a field width greater than w to permit all 
non-decimal digits to be output, the specification will be automatically 
changed to an E type specification so that the output data will be complete. 

Examples +1728. is the output under the specification (F6.0) of a variable • 
Had the specification been (F5.0), the output would have been 
+.1728000QE+OU » 

Variables in E type notation may be input under the F type specification. 
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E TYPE: 1 The E specification permits the input or output of a 
floating point variable in the exponential form; that is, +.XXXE+XX. 
On output, 6 characters of the field are required for the sign, the 
decimal point, and the exponential notation. 

Variables in F type notation may be input under the E type specification. 

D TYPE; The D type specifications permit input or output of data 
of floating point variables in "excess 50 w form* Only two forms of the 
D specification are acceptable * D10 for floating point numbers which 
will permit transfer of a variable numbered 12. as 5212000000, and DU 
which will permit transfer of a fixed point number such as -123 as 0125. 

A TYPE; 1 The A type specification permits the input or output of up 
to five alphameric characters. The alphameric characters are converted to 
their two digit form and stored in the symbol table as a 10 digit floating 
point variable. The width of the A field must not exceed £ and the number 
of alphameric characters output will be determined by this field width 
designation. The input of characters under the A specification varies 
according to the subroutine deck which is being used; that is, fixed format 
or relaxed format. 

X TYPE (BLANK FIELD SPECIFICATION) t Blank characters may be provided 
in an output record by means of specification wX where w is the width of 
the field to contain blanks. When the X specification is used with an 
input record, w characters are ignored. 

H TYPE: The specification wH permits the w alphameric characters 
immediately following H in the specification to be input or output. 
CAUTION? The characters of an H specification may not be split on two 
cards. Should more characters than are available on a given format card 
be required in an H specification, the H specification on the first card 
must include the count of the characters on the first card only and a 
new H specification must be stated on the format continuation card for 
the remaining desired characters. 

Free Form Input Subroutine Deck (Relaxed Format) 

The input accepted by this subroutine deck has been relaxed so that 
variables need not correspond precisely with the field widths defined by 
the input format specification. The only requirement for the entry of 
data is that a space or blank column exists between data. 

The Free Form Subroutine deck requires that the letter E follow 
immediately the last digit of the mantissa when a variable is in the 
E form and no blanks are permitted until after the last digit of the 
exponent or the entry will be erroneous. Hence, the only acceptable 
E notations are MM— WE+XX, MM— MEXX, MM — MEX, MM— ME- XX, MM--ME-X 
where M represents mantissa digits and X represents exponent digits. 



See Free Form Input Subroutine Deck and Fixed Format Input Subroutine 
Deck for variations of input in this specification. 
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The A format input will select the next non-blank and the four 
following characters. These will be converted to two digit notation 
and placed into the variable* For this reason, regardless of the 
field width of the A specification, an A specification on input will 
always be executed as A5 regardless of the field width which has been 
specified. The output, of course, will conform to the specific 
format specification. 

Fixed Format Input Subroutine Deck 

When data cards contain information in a specific format observing a 
correlation between card columns and the variable fields, the fixed format 
input subroutines may be utilized. By means of these subroutines, data 
may be packed on cards and a digit in only one column between adjacent 
punched columns may be recognized as a complete input variable. On output, 
a single column is insufficient to represent a variable since the sign of 
the variable will always precede the first digit. 

The Fixed Format Subroutines will extract a variable from the 
specified field width, w , filling in any blanks with zeros. The 
exponent digits must be right justified and may be preceded by the 
sign, optional if +, and the letter E or a blank. Hence, the follow- 
ing are all acceptable forms of the exponent in the fixed format input 
where b denotes a blank* b2 bl2 E+02 Ebl2 -2 Ebb2 bbb2 -b2 

Alphameric data read in by the A format specification may be 
extracted from one to five columns. However, when the variable is 
stored in the symbol table, blanks will be filled in to complete 
the 10 digit symbol. There is no restriction on the characters read 
by the A specif icationj however, should leading blanks or special 
symbols be used in the first two columns, erroneous results may be 
incurred should the field be used in compare or arithmetic operations. 

The PDQ FORTRAN Object Deck See System Options #2 

The size of the output (object) deck will be materially altered by 
the use of PROGRAM SWITCHES 2 and 3* 

PROGRAM SWITCH 2 OFF will cause a card to be punched for each card 
in the source deck. This card will contain the location of the first 
instruction compiled by the statement and then the entire statement. 
These referenced source statement cards will be intermingled with the 
object program instruction cards and symbol table entry cards but may 
be identified by an 11 (X) punch in column 2. After the END statement 
is processed, the symbol table will be punched, seven symbols per card 
with the address of the first character of the first symbol on the 
card punched in columns 2 thru 6. Column 2 also contains an 11 (X) 
punch. On completion of the compilation, all referenced source 
statement cards and referenced symbol cards may be removed from 
the output deck by sorting on an 11 (X) punch in column 2. The 
off line listing of these cards provides a ready reference to statement 
locations and symbol locations of the source program at execution time. 
It is not necessary to remove these referenced cards prior to loading 
the object deck since the loader will simply disregard their presence. 
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PROGRAM SWITCH 3 OFF will cause the punching of all relocatable 
subroutines and the input/output and arithmetic subroutines into the 
object deck* This will also prevent a subsequent processing of a 
source program without reloading the processor. With program switch 3 
ON, the subroutine deck will be called for and must be loaded at 
object running time. This also permits the batch compilation of 
several source programs 

Makeup of the Processor Deck See System Options #2 

The first two cards of the Processor deck will zero core of any size 
memory. The next seven cards constitute the loader for the remainder of 
the Processor and the add tables . The remainder of the cards up to the 
fifth or sixth from the end are identified by the first five digits punched 
into the card* These are the addresses into which the sixth digit of the 
card will be placed. These numbers should be recognised as the card 
number. The last card or two cards as may be required, contain the names 
of the Relocatable Subroutines available. The preceding four cards 
constitute a control card beginning zero, recorcfrnark, and the next three-— 
the multiply tables, 

Makeup of the Subroutine Deck 

The makeup of the Subroutine deck is as follows: The Subroutine 
Relocator constitutes the first U8 cards numbered from 000000 to OOOQttf. 
After this, the Relocatable Subroutines follow with the subroutine number 
in the thousandths positions. After the last relocatable subroutine is 
the Class "A" Subroutine deck which is numbered 2ii000 thru 21^09 for the 
Free Form Input Subroutine deck. For the Fixed Format Subroutine deck, 
the Class "A" Subroutines are numbered 25000 thru 25111* Additional 
relocatable subroutines to either of the subroutine decks should be located 
immediately prior to card 2U000 or 25>000. 
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^ System Options 



C 



There are frequently many variations of a Fortran System satisfying the needs and 
desires of different users of the systems. The following variations include the 
more common and more feasible alterations which may be wanted. 

1. Compile for the 1620 of Smaller Capacity 

The PDQ FORTRAN system examines memory of the computer on which it is 
being used, determines the memory size, and proceeds to adjust itself for 
that memory Should it be desired to confine the object program to a 
smaller memory size, the digit 2, U, or 6 for memory capacity of 20, UO, 
or 60 thousand should be located in column 71 of Card 179 7U of the 
Processor* No alterations are necessary in the Subroutine deck regardless 
of whether it is compiled with the object program or whether it is read in 
at object time running. 

2. Enlarging the S ymbol Table 

It is recognized that the available symbol table on a 2GK machine is 
materially reduced from the symbol table of other systems. For this 
reason, the system includes two alternate processors. In addition to the 
changes below, neither of these processors will produce as the first two 
cards of the output deck the zero core procedure normally output by the 
processor, PDQ FORTRAN C2. 

"PDQ FORTRAN CLC2" processor does not contain the facility 
for punching referenced source statements and symbol table under 
control of Switch 2. By eliminating this feature, the symbol table 
on a 2 OK machine accommodates 260 symbols • 

If the referenced source statements and symbol table are desired 
on cards, the processor "PDQ FORTRAN CLT2" may be used. In this 
processor, the facility of listing the symbol table on the typewriter 
has been eliminated. This processor will accommodate 265 symbol table 
entries on a 20K machine • 

3. Elimination of Printed Statement in Listing 

The address of the first instruction of each statement may be listed 
without listing the entire statement by changing columns 26 thru 32 of 
Card 0081*2 from 3917U97 to 3816239. 

iw Source Program Record Length of 80 Characters 

The Processor permits card identification or sequence numbers to be 
located in the source cards in columns 73 thru 80. Hence, statements 
punched onto cards must not go beyond column 72. If it is desired to use 
all 80 columns of a card for source statements, change Card 003>38 of the 
Processor, columns U8 and h$ from to 71. 
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f?. Change in Length of Input/Output Record 

»■ 

The PDQ FORTRAN Processor presently checks the record width specified 
in a FORMAT statement and will generate an Error 12 if 80 characters are 
exceeded. Should it be desired to alter this maximum record width, on 
Card 0296I of the Processor, insert in columns 27 and 28 the maximum 
record to be permitted. Caution: A flag must exist in column 27 and the 
character count cannot exceed 99 • 

6. Printing of Plus Signs on Output Data 

If it is desired that plus signs be inserted on both card and type- 
writer output, the following changes are to be made in the Free Form 
PDQ FORTRAN Subroutine deck (11/63). On Card 2l*0#L, change column 1$ 
to 1. On Card 21*061 , change column 37 to 1. In the Fixed Format PDQ 
Subroutine deck (11/63) changes are as follows: On Card 2£05>1, change 
column 1$ to X* On Card 23>08l, change column 37 to X. 

7» Elimination of Output Card Sequence Numbers Permitting 80 Column Output 
on Cards 



Normally, the last four columns on output cards will contain sequence 
numbers. If it is desired that data occupy these last four positions, 
columns 77 thru 80, the following changes must be made: In the Free Form 
Subroutine deck (11/63) on Card 2Uo£8, replace columns 7 thru 13 with 
1|9031S8. In the Fted Format Subroutine deck (11/63) on Card 2£o£8, 
replace columns 7 thru 13 with U9031f>8. 

8. Elimination of Four Digit Address Prior to Trace Output 

The address of traced variables may be eliminated at object running 
time by depressing SIE STOP during the typing of LOAD DATA. Then 
Insert 36026U600100 U9O660O RS. Type hi RS. To make this change in the 
Subroutine deck, change Card 2UCii2 or 25ol*2 columns 13 and lit to la. 

9. Alter the Format of Traced Output 

The results of tracing may be output under an F format by changing 
Card 2X035, column 23 thru 27 from "SlkoE to Swwdd where ww is field width 
and dd is decimal digits desired. The change may be made at execution 
time after the program is loaded prior to execution by Reset, Insert 
l602389"5wwdc[ U906600 Release, Start. If execution of the program is in 
process, SIE STOP during printing of a traced variable, Insert 1602389 
owwddU2 Release, Start. 

10 ° Output Trace in Tabular Form 

To permit the output of trace to be tabulated, follow any of the 
processes in #9 above, using instruction l£0261£00008„ In the Subroutine 
Deck, Card 2X0U2 column 12 change 2 to 8. 
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lie Terminate Object Program Execution on Error Detection 

Each computation Error type out is followed by a NOP instruction* 
These (k) may be converted to HALT if computation is not desired following 
the detection of an error. Change 1 to 8 as required per the following 
table i 



Error Message 


Location 


Column 


Card No, 


UPLO 


00937 


18 


20010 


OPLO 


01099 


32 


2X013 


NSQR 




38 


1*007 


NLOG 




38 


3012 



12» Elimination of Processing Messages 

After personnel are well acquainted with this system and the 
sequence in which card decks must be fed to the computer, it may be 
desired to eliminate some of the typed out messages in the compiling 
process* Caution: These messages should be eliminated only when the 
system is to be used by persons who have gained familiarity with the 
system and can recognize the proper times for loading (a) a new source 
program, (b) the subroutine deck, or (c) program data. 

The LOAD SUBROUTINE message may be eliminated by changing 
Card 0803U in the Processor, columns 8 and 9, 20 and 21, to 
la (NO OP). 

The END OF COMPILATION message may be eliminated by changing 
Card 08109 in the Processor, columns 37 and 38, h9 and 50 to 
la (NO OP). 

The START message can be eliminated by changing Card 08259 
in the Processor, columns 19 and 20, 1*3 and Ui to hX (NO OP). 

To eliminate the LOAD DATA message, replace columns 9 and 10 
on the last card of either Subroutine deck with 1*1 (NO CP). 

Since there are alternate Subroutine decks, either of which may 
be used depending on the format of input data for an object program, 
it is felt advisable to retain the identity of the Subroutine deck 
used. However, should an installation feel this identification is 
not required, the PDQ SUBROUTINE message can be eliminated by 
changing the first card of either Subroutine deck replacing columns 
13 and lU, and 25 and 26 with la (NO OP). 
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3T57 EM~OPTIGNS '— — 

13 * REREAD — A NEW TERM IN THE FORTRAN LANGUAGE TO ENABLE A DATA 
CARD TO SELECT THE FORMAT BY WHICH IT WILL BE READ 



o 



REREAD STATEMENT IN PDQ FORTRAN 



IN FORTRAN PROGRAMMING, APPLICATIONS INVOLVING MULTIPLE FORMATS OF INPUT 
DATA FREQUENTLY PRESENT A PROBLEM TO THE PROGRAMMER DUE TO THE REQUIREMENT THAT 
THE FORMAT OF THE CARD MUST BE KNOWN BEFORE THAT CARD IS READ. THE REREAD 
STATEMENT ELIMINATES THIS PROBLEM BY PROVIDING THE PROGRAMMER WITH THE ABILITY. 
IN E FFECT. TO READ THE SAME CARD REPEATEDLY IN ORDER TO DETERMINE THE 
APPROPRIATE F TWAL F R M ATi 



THIS HAS BEEN ACCOMPLISHED BY MODIFYING THE COMPILER IN SUCH A MANNER THAT 
THE IMAGE OF ALL CARDS READ IS TRANSFERRED TO A SECONDARY CARD IMAGE PRIOR TO 
THE NORMAL FORMATTING OPERATIONS. UPON ENCOUNTER TNG A~ SUfFSEOUENT REREAD 
STATEMENT. DATA IS DRAWN FROM THIS SECONDARY IMAGE AREA INSTEAD OF FROM AN INPUT 
TrSRTT. ■ " — ■ - — 



IN PRACTICE. THE PROGRAMMER WILL FIRST CALL FOR A NORMAL READ OPERATION. 
SPECIFYING A FORMAT WHICH WILL DEFINE THE IDENTIFYING DATA IN THE CARD. THEN 
AFTER PERFORMING THE NECESSARY LOGICAL OPERATIONS ON THE IDENTIFYING DATA. HE 
WILL CALL FOR A REREAD OPERATION, SPECIFYING THE DESIRED FORMAT FOR THE 

EXAMPLE . 
READ1.J 

GO TO *17, 18, 19o,J 

17 REREAD 2, D, £ , F, G 

GO~TO"NW~~ " - : : 

18 REREAD 3, A, B, C 
GO TO WNN 

19 REREAD 4, X, Y, IT 

FORMAT 1 OEFINES THE LOCATION OF THE CONTROL DIGIT J. 

TF T~T5 rrXUNTRUC TRANSFERS TO STATEMENT T7 

CAUSING THE CARD TO BE REREAD IN FORMAT 2. ETC. 



#•«# CHANGES TO THE PDQ FORTRAN PROCESSOR C2 



00426 












DORG 


00426 




W426 


16 


16243 




00 


040 


TFJT 


L 


.6900 


02358 












DORG 


02358 




02358 


47 


17996 


01200 


01 


750 


BNE 


RRPAT 




02370 


31 


17510 


17518 


01 


760 


TR 


CHI-l 


.CHUT 


08212 












DORG 


08212 




08212 


14 


08182 


J8088 


07 


630 


CM 


•-30 


.RRPAT&92 


18424 












DORG 


18424 




18424 


49 


18630 


00000 


17 


380 


B 


RRPAT1 




18630 








17 


680 


DORG 


18630 




18630 


31 


17996 


18650 


17 


690 


RRPAT1 TR 


RRPAT 


.RRPAT1C20 


18642 


49 


08164 


00000 


17 


700 


B 


MO0N7 




18650 








17 


710 


DORG 


«-3 




18650 
18662 


14 
31 


17515 
17510 


000N9 
17518 


17 
17 


"720 
730 


XM 
TR 


CHI £4 
CHI-1 


:3!u7. ,10 o 



Cs674 47 02450 01200 

18686 16 13024 -6820 

18*98 31 17510 17514 

18710 49 02482 00000 

17996 00000 



12C 

17 740 BNE 
17 750 TFM 
17 760 TR 
17 770 B 
17 7€0 RR.PAT DS 



RDCD 

INST2&6 9 RERD 
CHI-1 ,CHI£3 
101 

,17996 



*»*» CHANGES IN THE PDQ SUBROUTINES FIXED FORMAT DECK 



03182 














D0R6 


03182 




03182 


49 


06704 


00000 


03 


390 




B 


CRRD 




06542 








07 


090 




DORG 


06542 




06543 


00001X2 4 




07 


100 


ROBUF 


DAC 


1 


• a 


06703 


00160 




07 


110 




DS 


160 




06704 


43 


06772 


03166 


07 


120 


CRRD 


BD 


RSRD 


»MARK-1 


06716 


44 


06748 


03167 


07 


130 




BNF 


CKRD 


t MARK 


06728 


44 


03266 


03159 


07 


140 




BNF 


ACCEPT 


,MARKi 


06740 


49 


03194 


00000 


07 


150 




B 


POST 




06748 








07 


ISO 




DORG 


•-3 




06748 


14 


03167 


000-5 


07 


170 


CKRD 


CK 


MARK 


• 5 


06760 


47 


03194 


01200 


07 


180 




BNE 


POST 




06772 


15 


03164 


00003 


07 


190 


RSRD 


TDM 


MARK— 3 


• 3 


06784 


16 


03169 


0-500 


07 


200 




TFM 


MARK&2 


,500 


06796 


31 


06542 


05102 


07 


210 




TR 


RDBUF-1 


.INOUT-l 


06808 


49 


03194 


00000 


07 


220 




B 


POST 




06820 


15 


03159 


00001 


07 


230 


RERO 


TDM 


MARK1 


,1 


06832 


16 


03169 


-6542 


07 


240 




TFM 


MARKG2 


, RDBUF-1 


#\l6844 

^6856 


15 


03164 


00002 


07 


250 




TDM 


MARK-3 


»2 


26 


03061 


06819 


07 


260 




TF 


PINFMT 


, RERD— 1 


06868 


49 


03002 


00000 


07 


270 




B 


L00K-24 





*#A* THE FOLLOWING CARDS ACCOMPLISH THE ABOVE CHANGES 

»***' IN PDa FORTRAN PROCESSOR C2 THE FIRST CHANGE IS IN THE 8TH CARD 

89-JKLPNOP9-JKiW«iQPI3%01611631000-~01608535R99991616243-69002616861162431500459000 

^215734717996012003117510175181613024-291849024820311751017522141751100003470247 

-ai8464572608241081811208182000JOl408182J808846081760110015000080000026056480818 

ja425918630-000000460000000000*OM141414lM14l4141M14l4141M1414141M1414141MI41414i 

J857514141M1414141M1414141M1414141M1414141-*N14141414141000031179961865049081640 

J^6501417515000N93117510175184702450012001613024-68203117510175144902482* 



»•** IN PDQ FIXED FORMAT SUBROUTINES 

2390510300000150316*000004906704031591603128-510344030260337*1-1-3157-3217-25052 
430677203166440674803167440326603159490319400000* 1-1-6704-6752-25110 
1403167000-547031940120015031640000316031690-500310654205102*1-1-6748-6808-25111 
49©3194000001503159000011603169-6542l50316400002260306106819*l-l-6808-6868-25112 
490300200000* 1-1-6868-6880-25113 
250219000400250221400400250226600400250227800400490000000000*0-1-5190-5250-25114 
49069000390004100100410000000000490690005356414400444163410* -25115 

«**# THIS SUBROUTINE COURTESY J. E. OKEEFFE, AMERICAN BRIDGE CO. 
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OPERATING INSTRUCTIONS 



A. Loading the PDQ FORTRAN Processor 

Note: The processor will check the memory sise of the computer and 
compile programs utilizing full memory unless a control digit 
has been set for smaller memory « See "System Options". 

1) Set the PARITY and I/O and OFLOW switches to PROGRAM. 

2) Place the processor deck in the reader, followed by the source deck. 

3) Pill the punch hopper with blank cards. 
h) Press the RESET and LOAD keys. 

NOTE: 

The first two cards of the processor will zero core* When cards 
begin to be read again, if a MAR CHK light is on, press SIE STOP, RESET 
and START. Turn PARITY and I/O switches to STOP. Eventually, START 
will be typed and compilation will begin* 

B. Running the PDQ FORTRAN Processor See System Qptims #2 

1) Set the sense switches as follows: TABLE I 

SWITCH ON OFF 



1 



Do not list source statements 



List source statements 
and symbol table 



2 



Do not punch referenced source 
statements 



Punch referenced source 
statements and symbol table 



3 



Do not compile subroutines into 
object deck 



Compile subroutines into 
object deck 



Source program is on cards 



Source program is to be 
entered through the console 
typewriter 
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NOTES? 

a. If a typing error is made with switch h OFF, turn switch h ON, 
press RELEASE and START, and turn switch k OFF again IMMEDIATELY. 
The statement may then be re-entered correctly, 

b. Switches 1 and 2 may be turned on or off at will during assembly 
to alter the functions of the processor* If switch 1 is OFF after 
the END statement is assembled, the symbol table will be listed. 
This listing may be suppressed at any time by turning switch ! ON. 

c. When switch 3 is ON, the subroutine deck is not called for at 
compile time, but at object time. When switch 3 is OFF, the 
subroutine deck is called at compile time and the required 
relocatable subroutines are punched out, followed by the 
arithmetic package. This takes 1-2 minutes and is not 
recommended, unless the program is known to be correct and is 
going to be used many times. 

2) The source deck can be stacked on the compiler, and the subroutines 
on it (if subroutines are to be compiled) and the computer will not 
halt until the job is complete. 

3) Press the START key. After the source program has been processed, 
the program will proceed to step h (a) if SWITCH 3 is ON, and to 
step h (b) if SWITCH 3 is OFF. 

Ua) After the END statement has been assembled, the processor will type 

PROCESSING COMPLETE 
START 

The processing is now complete* 
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If it is desired to process another source program, it is not 



necessary to reload the processor; just place the source program 



in the reader and push START. 
Ub) The processor will type LOAD SUBROUTINES, PUSH START 

Place the PDQ FORTRAN Subroutine deck in the reader. Press the 
reader start key. After the subroutine deck has been copied, 
the processor will type PROCESSING COMPLETE, If it is desired 
to process another source program, the processor must be reloaded. 
If the processor detects an error in the source program, all 
punching will cease and step h (a) will be selected regardless 
of the setting of switch 3. 
0. Error Messages During Processing 

PDQ FORTRAN has a limited ability to detect errors in the 
grammar and syntax of FORTRAN • This capability is not adequate 
and is present mainly to ensure that the processor does not destroy 
itself. 

The PDQ FORTRAN error messages are s TABLE II 

Error No. Condition 



1 



Incorrectly formed statement. 



2 



Subscripted variable for which no DIMENSION 
statement has previously appeared in the program, 
dimensioned variable used without subscripts, 
variable in DIMENSION statement has already 
appeared in the source program. 



3 



Floating point number not in allowable range of 
values, or fixed point number contains more than 
four digits. 



k 



Symbol table full* 



Mixed mode expression. 



6 



Variable name in an expression contains more than 
five characters. 
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Error No* Condition 

7 Switch number has been omitted in an 

IF (SENSE SWITCH n) statement, or the first 
character following the right parenthesis in 
an IF statement is a comma* 

8 A comma follows the statement number in a 
DO statement* 

9 A DIMENSION statement ends with a comma, more 
than two dimensions have been specified in a 
DIMENSION statement* 

10 Unnumbered FORMAT statement* 

11 Incorrect representation in a FORMAT statement 
in one of the following wayss 

a* Special character ( » @ ~ * . 9 ) in numerical 
field specification* 

b* Alphabetic character other than D, E, P, I or A 
in a numerical field specification* 

c* Decimal point missing in an E or F-type numerical 
field specification* 

d* The number of positions to the right of the 

decimal point has not been given in an E or F-type 
numerical field specification* 

e. A record mark appears in a numerical field 
specification or an alphanumeric field* 

f • The first character following the word FOIMAT 
is not a left parenthesis* 

12 The total record width specified in a fDRMAT 
statement is greater than 80 characters* 

13 A FORMAT statement number has been omitted in an 
input/output statement* 

If the length of the compiled program plus the area required for 
data storage exceeds the capacity of the memory, the error message 
OVERLAP is typed. 
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D# fanning the Object Program 

1) Set the PARITY and I/O and OFLOW switches to PROGRAM. 

2) Place the object deck in the reader. 

3) Press the RESET and LOAD keys. The first two cards of the object 
deck will zero core. The subsequent cards will load the program* 
After core has been cleared and the program cards begin to read in, 
set PARITY and I/O switches to STOP. 

CAUTION 5 If the program is to utilize data alreaa^ in core which has been 
developed by a previous program, the first two cards of the object 
deck must be discarded. The two zero core cards may be identified 
by having X punches in columns 3 thru 6 in the first card, 
3 thru f> in the second card. 

U) If LOAD SUBROUTINES is typed, place the proper PDQ FORTRAN Subroutine 
deck in the reader. Push READER START. If the Subroutine deck is 
stacked on the object deck, it will be read automatically. 

5) When LOAD DATA, PRESS START is typed, the object program is ready 
to be executed. Place the data deck, if any, in the reader; 
prepare the punch, if needed; set the sense switches, if used; 
and then press START. 

To restart the object program from the beginning after the 
END statement has been reached: 

1. Press RESET and INSERT keys; 

2. Type U906600: 

3. Press the RELEASE and START keys. 
E * Error Messages at Object Program Time 



A number of error messages may be encountered at object running times 



MESSAGE 



CONDITION 



CONTENTS OF FAC 



TABLE III 



ERIN 



Input data in incorrect form or 
Outside Allowable Range 
Too Large 
Too Small 



9999999999 or 9999 
0000000000 



UKLO 



Underflow in FAD, MP, FDV 



5000000000 



OFLO 



Overflow in FAD, FSB, MP, 
FDV, EXP, LOG, SIN, COS 



5*999999999 



OFLO 



Zero divisor in: FDV 

FXD 



?999999999 
9*999 



OFLO 



Zero argument in LOG 



7999999999 
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MESSAGE 



CONDITION 



CONTENTS OF FAC 



• NSQR 



Negative argument in SQRT 



SQRT of Absolute Value 
of Argument 



ERLN 



Negative argument of LOG 



LOG of Absolute Value 
of Argument 



F. Error Messages While Subroutines are being Processed 

If the program, data and subroutines require more memory than is 
available, then the message OVERLAP xxxxx POSITIONS is typed where 
xxxxx is the number of digits overlap . If the subroutine deck was 
being loaded and compiled, then the resulting object deck is not 
complete, if the subroutines were being loaded at object time, 
the program will not run* 

G. Data Input at typewriter 

Each execution of an ACCEPT statement causes the typewriter 
carriage to return. The operator then types the desired data in 
the required format, and presses RELEASE and START. If a typing 
error is made, set Switch k ON, press RELEASE and START. The 
typewriter carriage will be returned and the data may be entered 
correctly. 

H. Trace Mode 

If the trace mode has been compiled, then when the object 
program is executed the program will operate in the trace mode if 
console switch k is ON, and in the non-trace mode if console 
switch k is OPF. 

The trace mode causes the result of each executed arithmetic 
statement to be typed using If? or Eliu8 format preceded by the first 
four digits of the address of the variable traced. Normal output 



is not inhibited. If an ACCEPT statement is executed while tracing, 
the following procedure must be used to cause the machine to ACCEPT 
the data and still trace (Switch U has two uses). See "System Options" 
for modifying format of traced data* 
1* type in the data* 

2. If the data is correct, set switch h OFF and proceed to 
step 35 otherwise RELEASE, START and try again. 

3. Press SIE (STOP) 7 or 8 times, set switch U ON, and 
press START. 

Adding Relocatable Subroutines 

Both the processor and the subroutine decks must be altered 
to include new subroutines, 
a. Processor Iteck 

The last card of the compiler deck contains the k digit fields. 



0008 




SIN 


*- 


COS 




EXP 




LOG 




SQRT 




ABS 




DRH 




ATAN 





The first field is the number of subroutines, the following 8 
fields, the names of the individual subroutines. The last four 
columns on the card are the sequence number. 
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To change the subroutine capability of the system, it is 
necessary to change the number of subroutines to the new, correct, 
number; and to add or delete subroutine names* If more than 18 
subroutines are required, continue the names on a second card. 

Special restrictions apply to the subroutines marked with 
an asterisk. 

SIN and COS, if present, must be in their present positions. 
In order to delete SIN and COS, the subroutine relocator must be 
changed. To do this, proceed as follows j 

1. Alter the processor as desired. 

2. Alter, either on cards or each time the cards are loaded, the 
instruction in the subroutine relocator which is at location 
00700 from U6 00881* 01200 

to ill 00000 00000 
This instruction is in card 6 in the subroutine deck. EXP and 
LOG, if present, must be in their present positions. Note that 
A * * B uses EXP and LOG, but that A * # N does not. 
b. Subroutine Deck 

Subroutines should be written and processed in U/U SPS 
RULES FOR WRITING SUBROUTINES 

1. Define origin at 5000. This must be the start of the subroutine. 

2. If the P or Q address of the instruction is to be relocated, 

a flag should be set over position or 1, respectively, of the 
instruction. No flags should appear on positions or 1 of 
instructions for any reason but relocation, and no flags should 
appear on positions 3 to $ or 8 to 10 of the P or Q part, re spec- 



- 21 - 

tively, of an instruction which is being relocated. Notes A flag 
in position 6 or 11 of a field to be relocated implies use of 
Indirect Addressing. The Subroutine Relocator will properly modify 
these addresses so that IA may be used if available and desired. 
The rest of the instruction may contain any combination of flags. 
3. The field address of the data will be given by the formula 

ADDR - 19989 - 20 n, 
where n is the subroutine number. If the machine is larger than 
20K, the formula should be altered to contain 39989, or 59989, etc. 

The subroutine number is the order number of the records at 
the end of the processor. At present SIN is 00, COS is CEL.... 
ATAN is 07* The subroutine number must not exceed 23 • 
li. Compile the subroutine using SPS and condense the resulting deck. 
Throw away the first two and last seven cards. Make a header 
card as follows: 

Col. 1-2 the subroutine number as a 2 digit 

un flagged number 
" 3 record mark (0-2-8) 

" 65-66 a zero and a record mark 

w 76-80 card number 

Make trailer cards as follows: 

Col. 1 a zero 

n 2 record mark (0-2-8) 

M 63 a flagged zero 

" 6U a one 

»» 6S-69 a five digit field, flagged on the 

high order digit, the address of any 
digit in the subroutine which must be 
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altered for a larger memory. The 
alteration which is made is to 
replace the digit with a 
1 in a 20K machine 
3 w tt IjQK « 

5 » » 60K « 
Col, 70 record mark 

11 75 flagged zero 

w 76-80 card number 

If more than one digit requires alteration, two or more such cards 
should be included* 
Make a final card as follows: 

Col, 1-5 a 5 digit unflagged number, the length 

of the subroutine (must be even) 
11 6 record mark 

« 65-66 flagged zero - record mark 

» 76-80 card number 

Make a deck of the header card, the SPS output without the 
first 2 or last 7 cards, the trailer cards, if any, and the final 
card. 

Insert this deck before card 2U000 or 25000 of the appropriate 
Subroutine deck. 
J. Known Errors 

There is one known error in PDQ FORTRAN inherited from PORTRAIT 
with FORMAT. 
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The statements 

A*-B##Cor 
A « ~ B * * I 
will compile as if they were 

A « (-B) * * C or 
A « (~B) * * I 
To obtain the desired result, it is necessary to write 

A » ~ (B * * C) or 
A « - (B # * I) 
K. Reproducing the Processor and Subroutine Decks 

To reproduce the processor and subroutine decks, use the program: 



00000 


37 


11111 


ooSoo 


00012 


39 


11111 


OOiiOO 


0002ii 


h9 


00000 


000000 



c 



o 



c 



C TEST PROGRAM FOR PDQ FORTRAN 

COMMON VALUE*i0n,AftGfi0n,ChT*4n ~ 

DIMENSION E110o t FI10D t Gtl0n,Ht5t5ntFUNCTtl0PtHlX5»5o 

15 IFISENSE SWITCH 4n 10,20 

10 ACCEPTl»X2ER0^XMAX f DELX 

GO TO 200 



20 READ1,XZER0,XMAX,0ELX 





200 


XfXZERO 

PUNCH1*XZER0*XMAX*0ELX 






PRINT 5 




30 


XltfSINtXa 






X2*COStXn 






X3 #S I N3XO/3C0S IXao 


X4#EXP*Xo 
X5#EXPt-Xn 


X6#L0G*Xn 

X7#LOG*XD/2. 3058509 


XBftSQRTtXO 
X9#ATANIXn 






X10#LOGJX3o/2. 3058509 






PR1NT1*X*XI*X2*X3 






PRINTI*X*X4»X5 






PRINT1,X,X6,X7 






PRINT1*X,X8 
PRINTl.X t X9 t X10 






JFSX-XMAXn 40*50*50 




40 


X#X£DEI_X 




50 


GO TO 30 
REAOUA.B*C.D 






READ 4*FLH1,FLH2,FLH3,FLH4,FLH5 






PUNCH1*A*B*C*D 


CONTROL 102 

PR I NT4 * FLN 1* FLH2* FLH 3 1 F LH4 * F LH5 






PUNCH4 * F LM 1 * F LH2 * F L H 3 * F LH4 , F LH5 






A1#A£6~CSD 






A2#A«B*C*D 






A3#A/B 






A4#A«»S-BP 






A5*A/I-8a 






A6#A*»*&£2«»«C 






A7#SA#Be/%C«0o 






A8#A/C»8/D 






PRINT1»A1*A2«A3*A4 


PRINT1,A5, A6.A7.A8 
PRINT6*A5*A6*A7*A8 


DO 60 1*1*10*5 

READ e.FIln.FJUla, F%It2n,FJI£3P,FXI44n 






PUNCH8,FtIn,FIUla f F%I£2D,FXI£3n t FXI£4D 




60 


CONTINUE 






DO 29 J#l»10,2 






READ1,GJJP*GXJ£1P 






PUNCH l,GtJn,GtJ£ 111 




29 


CONTINUE 


o 




DO 61 I#l*10*5 

ESIn*XSIN»FIIr.n**2nG%C0Sf FXIna*«2o 



DO 55 J# 1,10,3 
Ft I of J 



PRINTl,F%ln v 

KiGIJQ 

PR INT It EX In 



PRINT 2,J*6*Jp,K 
55 CONTINUE 



61 CONTINUE 

00 47 Jf 1,10,2 



WE AD 1 , A RG% J o , ARG* J £ 1 p 
PUNCH! v ARGXJn 9 ARGXJ61P 



47 CONTINUE 

00 48 til, 10,5 



READltVALUE*Ln«VAlUESL£lP,VALUEXL£2P, 
lVALUE<IL£30f VALUE3CLS4P 



PUNCH 1 tVALUEILO tVALUEXLt la, VALUE tL£2n,VALUE%L63o,VALUE?L£4n 

48 CONTINUE 

00 49 L#1.10,5 

READ1 , FUNCTXtP, FUNCTXLC 1°, FUNCTSL-2P, FUNCTXL63P, FUNCT%LS4-P 

PUNCHl»FUNCT*in,FUNCTtLSln t FUNCTJL£2n,FUNCTXL£3n t FUNCTtL£4o 

49 CONTINUE 

00 63 J #1,10 

DO 70 Lilt 10 

lFtARGXJn-VALUEXLPn 70,65,70 

65 PRINT1, ARGIJp,FUNCT1Lp 

70 CONTINUE 

63 CONTINUE 

DO 140 Mil, 5 

REA01«HX*tln»H»R,2P,HXHt3P,HXH,4P,HXH,5P 

PUNCHl»HX#l«la«HX*,2P,HXM,3P,HXH,4P,HXM,5P 

140 CONTINUE W 

CNTtln#6.263E20 

CNTX2Pi55»44E20 

CNTJ3P#594*4E20 

CNTX4Hi6348.E20 

DO 130 Mil ,4 

00 «0 Nil, 5 . 

H12*,Na#HS*,NP«1.0E£2 

PRINT1,H1XH,Np 

80 CONTINUE 

PR INT1 ,HX1, lo,HX4, 5P 

TYPE7,CNT*WP 

GO TO X90, 100*110, 12Qp,H 

90 DliSIN*Aa»COS*BP 

100 D2iSINXAn»»XC0SXBPP 

210 D3iS0RTXXSINXAP«»2P£XC0$XAP»«2PP 

120 PRINT1,A,B,01,D2,D3 

EXECUTE PROCEDURE 300 
130 CONTINUE 

ZiO 

PRINT1,Z _ 

D4#-B€C 

PR I NT It 04 

D5#SINXAP»C0SXAP»C0SXBn 

PRINT1,D5 

Il#2 

D6»A»«XIlP ; 

D7#A»»%-Ilo ' 
PR INT 1,06 , 07 ^J|_ 
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c 



READ4,FXH1,FXH2 



PUNCH4,FXH1,FXH2 

CONTROL 102 



PRINT4,FXH1» FXH2»FLH4»FLH5 
REA03# 12 t I3t 14 



PUNCH 3 illUl 3 ,T 4 ' 
15#I2£I3£I4 



I6#I5~I4 
17*12*13 



I8»I2*I3«I4 

19*14/13 



NGT€-M IS DEFINED BY DC 61 I # 1,10,5 
Jl#I2U3t*I3»I4a/I 



PRINT3,I2,I3,I4 
PRINT3,I5,I6,I7,I8,I9,J1 



PAUSE 

5T0P555 



GO TO 15 

BEGIN PROCED URE 30 

A TO NEAREST 1/16, B TO NEAREST INTEGER, D2 TO NEAREST 0.0001 



Al*0«0625«DRHSA»16.€.5a 



A2#DRHfB£«5fi 

D2#0.G001*DRHXD2#10000.*.5n 



PR I NT 1 « A It A2 , D 1 ,02 
END PROCEDURE 300 



1 «rGRWAT*5F15.8n 

2 E0RHAT*I15,F15»8,U5p 



C 



3 FORMAT1-5I15C 

4 F0RKATS5A5O 



5 F0RWAT*11X 1HX 13X 6HSINXXO 10X 6HC0SSXD 10X 6HTANXXD /11X1HX 13X 

1 6HEXPSXQ IPX 7HEXPS-XB/ 11X 1HX 13X 6HLQGSXP 9X 8HLOG10%XP/ ilX 

2 1HX 13X- 7HSQRTXXD/ 11X iHX 13X 7HATANXXO 7X 13HL0G1.0XTANXXPP// p 

6 FQRK ATSP1Q ,_5 X,D10,5X,D10 , 5X,DlQn 

1 f 0RHAT~%14H THIS IS THE ,A3,25H OF THE 4 LOOPS OF DO 130n 

8 f?0R *AT< 5E15.8n 

END 



2Jl 



»«*»»« THIS DATA IS ACCEPTABLE TO THE FREE FORM SUBROUTINES ONLY. 

• THE OUTPUT FRO* THE EXECUTION OF THE PROGRAM WILL 
»•*•• BE IN FIXED FORMAT SUITABLE FOR USE WITH EITHER 
«».%»» THE FREE FORM OR THE FIXED FORMAT SUBROUTINES. 

««»«» DATA CARDS ARE AS FOLLOWS 

••**• KZEROt XMAX,DELX 

.40 .80 .10 ' 

A«B»C»D 

I .All 2.222 3.333 4.444 

•«A»« F LH 

FLOATING POINT ARITHMETIC ; 

••*»« Ftlu 

1.1 2^2 3.3 .14E1 .0015E3 __ 

•OOEO 170. E-2 1.8 1.9 2.0 

S&tJP . ; 

2.1 2.2 

3.3 2.4 : ; ; 

2.5 2.6 

2.7 2.8 : _! 

2.9 3.0 

««»»* ar6ijp ' ; 

5.0 10.0 

24 .0 li.o ; : : i 

39*0 17*0 

44 iO 41*0 

50.0 1.0 

•***m VALURiLB . ■ ; • . 

1.0 2.0 3.0 4.0 5.0 ft 

6.0 7»g 8.0 9.0 10.0 v 

••»*• FUNCTSLo 

1.1 2.1 3.1 4.1 5.1 

6.1 7.1 8.1 9.1 10.1 

»«it»> NiMfNo : ; : 

.11 .22 .33 .44 .55 

.66 .77 .88 .99 .10 

• U „12 .13 .14 .15 

.16 .17 *18 .19 .20 

•2a .22 +23 .24 .25 

••Mm* FXH 

INTEGER 

12,13,14 

22 11 33 
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_OAD SUBROUTINES 

PDQ FREE FORM SUBROUTNS 

LOAD DATA 

X 



TEST PROGRAM TYPED OUTPUT 



11/63 

SIN(X) 
EXP 00 
LOG 00 
SORT(X) 
ATAM(X) 



COS(X) 
EXP(-X) 
L0G10O0 

L0G10(TAM(X)) 



TAM(X) 



.40000000 
.40000000 

:k ooooooo 

.40000000 
.40000000 
.50000000 

.50000000 

.50000000 
.50000000 
.50000000 
.60000000 
.60000000 
.60000000 
.60000000 
'.60000000 

.70000000 
.70000000 

.70000000 

.70000000 

.70000000 
.80000000 
'.30000000 
;80000000 
.80000000 
.80000000 



.38941834 
1 .49182470 
-'.91629073 
.63245553 
.38050637 
'•47942554 
1.64872130 
-.69314718 
.70710678 
.46364760 

.56464247 
1 .82211880 
-.51082562 
.77459667 
.54041950 
.64421769 
2.01375270 
-'.35667494 
.83666002 
;61072596 
-.71735609 
2.22554090 

-.22314355 
'.89442719 
.67474094 



FLOATING POIMT ARITHMETIC 

4;44400000 36;56516000 
-.50000000 5.19804550 

M05000000- N15 1980455 I 
1 '.00000000 
1.00000000 

1 

4;oooooooo 

1.00000000 

4 2.40000000 

7 -.00000000 



.92106099 
.67032004 
-.39737640 

-.37334246 
.87758256 
'.60653066 
-.30060364 

-.26219494 
.32533561 
.54881163 
-.22153454 

-.16462355 
.76484218 
.49658530 
.15468256 

-.07443361 
'.69670670 
'.44932896 
.09677275 

.01266680 



.42279322 



.54630249 



.68413681 



.84228839 



1.02963850 



.50000000 .79144978 
.16666666 .16666666 
4016666666 MO 16666666 



2.10000000 



1.00000000 
7 

10-.00000000 
1.00000000 
10 

l; 00000000 
1.00000000 

1 

4;00Q00000 
1 .00000000 



70000000 



3.00000000 



2.10000000 



2.40000000 



7.00000000 
1.00000000 
7 

10-.0000000G 

1.00000000 
10 

5.00000000 
10;00000000 
1 .00000000 

ir.ooococoo 
22;oooooooo 
33:00000000 

44.00000000 

55.00000000 

; 11000000 

1 .11100000 
1; 12500000 

66.00000000 

77;00000000 

88;oooooooo 
99;oooooooo 

10;0000000C 

; 11000000 

1 .11100000 
1 .12500000 

1U00000000 
12;00000000 
13".00000000 
14.00000000 
15.00000000 
-.11000000 
1 '.11100000 
1 .12500000 
16.00000000 
17.00000000 
18.00000000 
19.00000000 
20.00000000 
.11000000 
1 -.11100000 
1; 12500000 
;00000000 
1.11100000 
--.24104984 
1.23432100 



2.70000000 



3.00000000 

5; 10000000 

10.10000000 
1.10000000 



.20000000 
2.22200000 

2.00000000 



.20000000 
2.22200000 

2.00000000 



.20000000 
2.22200000 

2.00000000 



.20000000 
2.22200000 

2.00000000 



,81016201 



O 



TMiS- IS THE 1ST 
-.54319101 
-.54319101 



OF THE 4 LOOPS 
1,06072570 
1 .06070000 



OF DO 130 

1 .00000000 



THIS IS THE 2 HD 
-.54319181 
-.54319181 



OF THE 4 LOOPS 
1.06072570 
1.06870000 



OF DO 130 
1 .00000000 



THIS' IS THE 3RD 
-.54319101 
-.54319101 



OF THE 4 LOOPS 
1-.06070000 
1.06070000 



OF DO 130 

1 .00000000 



S IS THE 4TH 

-.5 ? :319101 

-.54319101 



OF THE 4 LOOPS 
1 -.06870000 
1 .06870000 



OF DO 130 
1.00000000 



;STEGER 



STOP 0555 



ARITHMETIC 
22 
66 
66 



11 

33 



33 

242 



7936 



2? 





«•*»* LISTING 


OF THE REFERENCED SOURCE CARDS AFTER SORTING 






-Jl JA ^k. Jtt. Jft 

-6600 


C TEST PROGRAM FOR PDQ FORTRAN* 






*\ r» ft 




DIMENSION E*10n,F%10n f GX10n,H«5,5n f FUNCT%10n»HlX5, 5a* 






— oouu 
-6620 


13 

10 


tr*ccucc cuiTru Art 1 A O f\ •*■ 

lr*5c:N5c owl ILH 1U 9 lU? 
ACCEPT1,X2ERC»XMAX»DELX* 






— DC O O 

-6*76 


20 


GO TO 200* 

READl«XZER0f XMAXt DELX* 






-6736 


"> f\ t\ 
200 


XfFXZcRO* 

PUNCH1 9 X2ER0»XMAX 9 DELX* 






— 6784 
-6796 


30 


PRINT 5* 
XliSINlXCi* 






— Do2U 
-6844 




X2fCU5*XB* 

X3f SIN*Xn/tC0S*Xao* 






—6904 
-6928 




X4»t xpxxh* 
X5#EXPl-Xo* 






— o? 76 
-7000 




X6#L0GIXC* 

X7#LOGlXn/2. 3058509* 






—7036 
-f060 




X8#SQRTXXn* 
X9iATAN*Xn* 






— 7084 
-7120 




XlQ|L0G*X3n/ 2. 3058509* 
PRINT1 Y X«X1 9 X2 9 X3* 






—7180 
-17228 




PR INT 1 1 X t X4 • X5* 
PRINTl«X»X6tX7* 






— 7276 
-7312 




PRINTltXt X8* 
PRINT1 9 X*X9 9 X10* 




o 


—7360 
-7428 


40 


IFlX-XMAXn 40t50t 50* 
XtXSOELX* 






—7464 

-7472 


50 


GO TO 30* 
READ1* A»B 9 C 9 D* 






—7532 
-7604 




READ 4 9 FLH1 9 FLH2 9 FLH3 9 FLH4 9 FLH5* 
PUNCHl»ArB 9 C«D* 






-7664 
-7676 




CONTROL 102* 

PRINT4,FLHl,FLH2,FLH3,FLH4,FtH5* 






—47748 
-7820 




*%. * 4 Aft a** ft i at * * l < V ■ at ft ft f a 1 | i p> * at f» _a 

PUNCH4 9 FLH 1 1 FLH2 1 FLH3 9 FLH4 t FLH5* 
A1*A€B-CC0* 






-7880 
-7940 




A2#A»B«C»D* 
A3#A/B* 






-7976 
-8012 




A4#A***— BD* 
A5#A/S-Bn* 






—8060 
-8144 




A6f A***B&2«n*C* 
A7#tA«BD/lC«DD* 






— 8228 
-8288 




A8#A/C*B/D* 
J>RINTl 9 Al*A2»A3tA4* 






-8348 
-8408 




PR I NT I * A5 9 A6 9 A7 9 A8* 
f>RINT6 9 A5 9 A6 9 A7 9 A8* 






-8468 
-8480 




DO 60 I#l 9 10 9 5* 

REA0 8«F%ln 9 FSI&la 9 F%ie2n 9 FtI%3a 9 FXI&4a* 






-8672 
-8864 


60 


PUNCH8 9 F«I0 9 r*l lilu 9 r«I SZDtr* 1 ajOirlltHDf 
CONTINUE* 






—8900 
-8912 




DO 29 J#l 9 10 9 2* 
REAOlvGXJDf GXJ€lQ* 




o 


-8996 
-9080 


29 


PUNCHl,GXJn 9 GXJ£ln* 
CONTINUE* 






-9116 
-9128 




DO 61 If 1 9 10 9 5* 

EXIn#%SIN%FXIon«»2o£?C0S*FXlnn*»2n* 





30 



-9284 




DO 55 J*ltl0 9 3* 


%J 


-9296 




F*ln#J* 




-9356 




PRINTl*FSIa* 




-9404 




KiGlJo* 




-9464 




PRINTl,E*In* 




-*512 




PRINT 2,J,6*Jn,K* 




-9584 


55 


CONTINUE* 




-9620 


61 


CONTINUE* 




-9656 




DO 47 Jil,10,2* 




-9668 




READl»ARG*Jn f ARGtJSlo* 




-9752 




PUNCHl.ARGXJo, ARGtJ£ln* 




-9836 


47 


CONTINUE* 




-9872 




DO 48 Lil*10,5* 




-9884 




READl,VALUEXLn,VALUEXL£la,VALUEXL€2n,* 




J0004 


1 VALUE *L£3n,VALUElL&4n* 




J0076 




PUNCHl,VALUEtLn,VALUESLGla f VALUE«L62n t VALUEXL£3n,VALUE»L£4o* 




J026I 


48 


CONTINUE* 




J0304 
J0316 




DO 49 Lil«10,5* 

READl,FUNCT%LD f FUNCT%L£intFUNCTXL£2n t FUNCT*L63n # FUNCTXL£40* 




J0508 




PUNCH 1 9 FUNCTXLn • FUNCTUS la v FUNCTXL £2n t FUNCTXL &3a t FUNCTXL €4n* 




J0700 


49 


CONTINUE* 




J0736 




DO 63 J#l 9 10* 




J0748 




DO 70 Lil,10* 




J0760 




IFXARGXJB-VALUEXLbb 70,65,70* 




J0876 


65 


PRINTl,ARGXJn, FUNCTXLn* 




J0960 


70 


CONTINUE* 




J0996 


63 


CONTINUE* 




J1032 
J1044 




DO 140 Mil t 5* 

READ1,HXH, ln,HXM,2n,HXM,3n t HXH,4n,HXM,5n* 


o 


JI236 




PUNCHl,HXH,ln r HXH,2n,HXM,3n,HXN,4n,HXM,5n* 




J 1428 


140 


CONTINUE* 




J1464 




CNT*ln#6»263E20* 




J1476 




CNTX2a#55*44E20* 




J1488 




CNTX3n#594.4E20* 




J1500 




CNTX4Oi6348.E20* 




J1512 
J1524 




DO 130 Mil, 4* 
DO 80 Nil, 5* 




J 1536 




Hl*H,NQiH*H,Nn»1.0E£2* 




J 1692 




PRINT UN1XM» No* 




J1776 
J1812 


80 


CONTINUE* 

PR I NT 1 ,HX1 t I n t HX4 , 5n* 




J 1848 




TVPE7 tCNTXHn* 




J 1896 




GO TO X90, 100, 110, 120a, ft* 




J1980 


90 


01#SINXAa»C0SXBa* 


i 


J2040 


100 


D2iSINXAn»«XCOSXBaa* 




J2124 


110 


D3iSQRTXXSINXAa*«2u£XCOSXAa**2na* 




J2220 


120 


PRINT1,A*B,D1,D2,D3* 




J2292 




EXECUTE PROCEDURE 300* 


•, 


J23C4 


130 


CONTINUE* 




J2340 




ZiO* 




J2376 




PRINT1,!* 




J2400 




D4#-B£C* 




J2448 




PR I NT 1 ,04* 




J2472 




D5iSINXAa»C0$XAa»C0SXBa* 




J2568 




PRINT1,D5* 




J2592 




Ui2* 




J2604 




D6#A«»XIla* 





\ J J2640 D7f A«»t-IlP* 

J2676 PRINT1,D6,D7* 

42112 READ4,FXH1,FXH2* 

J2748 PUNCH4.FXH1.FXH2* 

J2T84 CONTROL 1024 

JI796 PRINT4,FXHltFXH2,FLH4,FLH5* 

J28S6 READ3, 12, 13,14* 

J2904 PUNCH3, 12,13,14* 

42952 15f 12£13£I4* 

J3000 16*15-14* 

J3036 I7»12>13» 

J3072 I8#I2«I3»I4* 

J 3120 19*14/13* 

J9156 C NOTE— I IS DEFINED BY DO 61 I # 1,10,5* 

J1»12CI3.»I3«I4p/I* 

J3252 PRINT3,I2,I3,I4* 

J3300 PRINT3, I5,I6,17,I8.I9,J1* 

J4384 PAUSE* 

J3396 STOP5S5* 

J3408 GO TO 15* 

J3416 BEGIN PROCEDURE 300* 

J 344* C A TO NEAREST 1/16, B TO NEAREST INTEGER, D2 TO NEAREST 0*0001* 

J 3444 Al«0»0625«DRmA«16.C.5a* 

J3516 A2#DRH«B£.5D* 

J3564 D2f0.O001»DRHtO2»10000.E.5P* 

J9636 PRINT1,A1,A2,01,D2* 

J3696 END PROCEDURE 300* • 

OJ3704 1 F0RHATI5F15.8D* 
J1746 2 F0RWAHI15,F15,8,I15o* 

J3778 3 F0RKATt5Jl5n* 

J3820 4 F0RHAT15A5Q* 

J3862 5 FORMATSllX 1HX 13X 6HSIN1XO 10X 6HC0SSXB 10X 6HTANXXO /11X1HX 13X* 

J3862 1 6HEXPXXD IPX 7HEXPt-XQ/ UX 1HX 13X 6H106IXB 9X 8Ht0610<X«/ UX* 

J3862 2 1HX 13X 7HSQRTIXD/ UX 1HX 13X 7HATANtXO 7X 13HLOG10STANtXnn// a* 

J 42 74 6 FORHATfDlO, 5X,D10, 5X, DIP, 5X, OIQd* 

J4332 7 F0RMATX14H THIS IS THE ,A3,25H OF THE 4 LOOPS OF DO 130n* 

J 4446 8 FORM ATX5E 15.8n* 

J 44 8 8 END* 

J7610 N51000000-N71000000-N05000000-N21600000-H96250000-N171000000H979000000 
J7680 M978000000H977000000M976000000M975000000M974000000M973000000M972000000 
J7750 J3784K-003H667487200H667487100H477000000H476000000H971000000H475000000 
J7820 M474000000-00000-00-0900000000-00000-300J34320-300M473000000H472000000 
J7890 H471000000J2220 — 120*12124— 110J2040 — 100J 1980— 090 J4338K-007N3 1000000- 
J796C N500000000J1776 — 080J2304 — 130P46348000-P35944000-P25544000-P16263000- 
J8030 N400000000J1428 — 140J0876 — 065J0960--070J0996 — 06340700 — 049N300000000 
JtlOO JC268 — 048-9836 — 047 J3752K-002N200000000-9584 — 055-0000O-0OK-962O— 061 
J8170 N 1 00000000-9080 — 029J44S2K-008M900000000-8864— 060 J4280K-006H 17 8000000 
J*240 -000000-03H177000000N12000000-M176000000M175000000-000000-01H174000000 
J831C H173000000M172000QOOM171000000M653487500H653487400M653487300M653487200 
J838C M653487100J3826K-004M400000000H300000000M200000000M100000QOO-7472 — 050 
J8450 -7428^-040077170000007790000000778000000N12305850RQ7770000000776000000 
J852C 07750000000774000000-000000-0207730000000772000000-000000-000771000000 

J8590 -6796-*-030J3868K-0050700000000-6724 — 200H4455367000754416T000769455956 

J 86 60 J3710K-001-6676 — 020-6620 — 010-6600—015 — 005J8709M871000000 — 01QJ8959 

- H664554363 — 005 J9059H800000000 — 010J9309W700000000 — 010 J9409M600000QOQ 

— 010J9509M500000000 — 004 J9609M355630000 — 010 J9649M159470000 — 010J9749 
Q - 0541536445H163415546M163415500H459484600H459480000ttl42624600H142620000 

: [ 32 



o 



O BJECT PROGRAM t ISTING (CQMPlLhD WifHoor 5uBi?OOT/Nfc s) %J) 

36«~K*t&OOSO*2600047000541600054-0001 1100054-000031-0139-001045 000120024049002420 
0040-0035-0100260009000299170006000 J40-3936000000050049000000123456789123456789- 
15*~-24€0000»36000800050049001040440009200161490010400000260007400164260000000174 
31-01600017545000560016036001600050044000320016026001460016431000000016549001040 
-6600*04 868C00400H9J86700K7-283448666J70393848659470393848649J7-391448639HR48620 
-66750K7-279848666470393848659J7039384864947-391448639K64861948659K7-28824866647 
-6fS0039384865947039384864947-391448639K7-295448606K74999048619K648589-0060K7499 
-6*257C48619K648569-0060K74999048619IC648579-0060K74997O48619K7-134648579K648559-~ 
-690Q0060K74995048619K648539-0060K60006048619K70181601815K749950-0060K6J8529-006 
18699K90660000018689H906620Q0018679H90667600018629M90672400018599H906796000+0000 
-69750K74993048619K648519-OQ60K74993048619K7-138248499K648509-0060K74991048619K6 
-7050484A9-0060K74985048619K648479-0060K74993048559K7-138248499K6J8469-0060K7-29 
-71g55»4866647039384861947039384858947039384856947-391448559K7-2954486664703938J 
-7200861947039384853947-39 1448529K7-29544866647039384861947039384851947-39144850 
-71759K7-29S44866647039384861947-391448489K7-29544866647039384861947039384847947 
-7350-39 1448469K60006048619K7-04204864943-7408000534948440000004448*400006049484 
-7»255O0K600060J8619K7-0480J8639K6J8619-0060HRJ85900K7-2798J8666J703938J8439j703 
~-75009B84e42947039384841947-3914484Q9K7-2798483964703938483894703938J83794703938 
^7S754»36947039384835947-391448349K7-2882486664703938484394703938484294703938484 
-7650l947-391448409L44*619-0102K7-2954483964703938483894703938483794703938483694 
«»7 7257039384835947-391448349ia- 2882483964703938483894703938483794703938483694703 
-7«009384835947-391448349K60006048439K7-048048429K7-042048419K7-048048409K648339 
^7*75-0060X60006048439X7- 112848429K7-112848419K7-112848409K648329-0060K600060484 
-795039K7-138248429X648319-0060X60006Q48439X7-215248429X648309-0060K60006048439X 
-80257-1382 46429X70181601815X648289-0060X60006048429X7-048048269X648299-0060X600 
^8100O6048439X7-218848299X7-JU2848419X648279-0060X60006048439X7-il2848429X648/W9 
-8175-0060X60006048419X7-112848409X7-134648299X648259-0060X60006048439X7-138^14 
-825 1 9K 7- 1 12 8 48429X7- 1382 48409X648239-0060X7-2954486664703938483394703938483294 
-83257039384831947-391448309X7-29544866647039384828947039384827947039384825947-3 
-84O091448239X7-29544822647039384828947039384827947039384825947-3914J82394648209 
-84750-001X7-27984819616-85274950922-85264820947039384950916-85634949922-8562482 
~8S500947039384949916-85994948922-85984820947039384948916-86354947922-8634482094 
-86257039384947916-86714946922-86704820947-391449469X7-28824819616-87194950922-8 
-87007*84820947039384950916-87554949922-87544820947039384949916-87914948922-8790 
-87754820947039384948916-88274947922-88264820947039384947916-88634946922-8862482 
-88500947-39144946944482090-00544J82090-010M7-848001 10046481790-001X7-2798486661 
-89256-89594940922-89SB4817947039384940916-89954939922-89944817947-391449399X7-2 
-9*008*24866616-90434940922-90424817947039384940916-90794939922-9078J817947-3914 
18499NA2305€50918459M90742800018449M90747200018269N12000000018219H908864000»0000 
-90754S3994448 1790-0024448 1790-010H7-89120110046482090-001 16-91634950922-9162482 
^915009X74999049509X7-2000481 59X648299-006016-92234950922-922248209X74997049509X 
-92257-200048159X7-04«04829916-92784960922-927748209X649609-00604648i790-001X600 
-930006048 179X7023920239 116-93504950922-934948209X649509-0060X7-29544866616-9403 
-93754950922-9402 4820947-39144950916-94394940922-943848179X60006049409X702298022 
-945097X648139-0060X7-29544866616-95114960922-95104820947-391449609X7-2954481264 
-93257039384817916-95714940922-95704817947039384940947-39144813944481790-0034448 
-96001790-010H7-92960110044482090-00544482090-010H7-91280U0046481790-00 1X7-2798 
-96754866616-97154974922-97144817947039384974916-97514973922-97504817947-3914497 
-975039X7-28824866616-979 94974922 -97984817947039384974916-98354973922 -9834481794 
-982 57-39 14497 39444 8 1790-00244481 790-0 10W7-96680 1100464 80990— 001X7-27984866616-9 
-99009314984922-99304809947039384984916-99674983922-9966480994703938498391640003 
-9<975498292240002480994703938498291640039J98192240038480994703938J98191640075498 
400500922400744809947-391449809X7-28824866616401234984922 J0122480994703938498491 
40125640159498392240158480994703938498391640195498292240194480994703938498291640 
18189H9090800001815900200 — 00218149H90958400018169M90962000018119H909836000*# lgO 
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J0200231J981922J0230J8099J703938J981916J0267J980922J0266J8099J7~391AJ9809JJJ8099 
J02750-005J4J80990-010M7-988401100J6J80990-001K7-2798J866616J0363J905922J0362J80 
J03509 9J703938J905 9 16 JO 399 J90492 2 J 03 9 8 J8099J703938 J904916 J0 435 J903922J0434J8 099J 
J0425703938J903916J047U902922J047bJ8099J70 

J05009 14J9019K7- 2882 J866616J0555 J9 05922J0554J8 099J703938J905916J0591_904922 J0590 

J0575J8099J703938J904916J0627J903922J0626J8099J703938J903916J0663J902922J06«2J80^ 

J065099J703938J902916J0699J901922J0698J8099J7~3914J90i9JJJ80990-005J4J80990~010H 

J07257J031601100J6J81790-001J6J80990-00116J0795J974922J0794J8179K600060J974916JO 

JQf 00831 J984922J0830J8099K7-0420J984943J08560005349J80500000044J80600006049J 8^0 

J0t750K7-2954J86A616J0923J974922J0922J8179J703938J974916J0959J905922J0958J8099J7 

J 09gQ-^i9l4J9059JJje0990~001J4J80990-010^7J076001100JJJ81790»001J4J81790~010W7J07 

J1G254801100J6J80390-001K7-2798J866616J1091J930922J1090J8039J703938J930916J1127J 

J11009J5922J1126J8039J703938J925916J1163J920922J1162J8039J703938J920916J1199J915 

J1175922J1198J6039J703938J915916J1235J910922J1234J8039J7-3914J9109K7-2882J866616 

J1250J1283J930922J1282J8039J703938J930916J1319J925922J1318J8039J703938J925916J13 

jlB2555J920922J1354J8039J703938J920916J1391J915922J1390J8039J703938J915916J1427J 

18109M9 l0268000 16089>t91070000018059M910e7600018069H91096000018079M910996000»0000 

J140C910922J1426J«039J7-3914J9109JJJ80390-001J4J80390-005H7J104401100K6J9639J802 

16049N91 i42^00018029F162630000180l9P25544000018009P35944000017999P463480000*0000 

J14759K6J9629J8019K6J9619J8009K6J9609J7999J6J80390-001J6J79690-00113J7969 — 00532 

J155000096000002 1-0099 J8039 16 Jl 6 7 J 9359 2 2 J1606-0099K 6000 60J 9359K7-11 28 J795913 J 7 9 

Jl62569*~00532Q009600a0021-b099J803916J1686J900922Jl685-0099K6J9009-0060K7-2954J 

Jl 7008 fefcfel3J7969 — 0053200096 00002 1-0099 J803916J1775J900922J1774-0099J7-3914J900 

J17759JJJI79690-001J4J79690-Ob5M7J153601100K7-2954J8666J703938J9299J7-3914J9069K7 

Jlt50-2918J794616J1895J964922J1894J8039J7-39I4J9649JLJ8039000-4L20009500000J1000 

J192599J1963K61195500099K61196100000MROOOOOOJ793J792J791J790K7J9990J8439K6J8579- 

J2C000060K7J9970J8429K7-1128J 8 579K6J7899-0060K7J9990J8439K6J8579-0060K7J9970J842 

J20759K6J8549-0060K600060J85.79K7-2188J8549K6J7889-0060K7J9990J8439K7-2000J8159K6 

17959N 31000000017979H91177600017939H91198000017929H91204000017919H912124000»0000 

J2150J8299-0060K7J9970J8439K7-2000J8159K7-0480J8299K7J9910-0060K6J7879-0060K7-29 

J212554J8666J703938J8439J703938J8429J703938J7899J703938J7889J7-3914J7879JPJ7862J 

J2300_304JJJ80390-001J4J80390-004K7J15240liOOK600060J7839K70239202391K6J7849-006 

J2f750K7- 2954J8666J7-3914J7849 K600060J8429K7-0420J8419K70181601815K6J7829-0060K7 

J2450-2954J8666J7-3914J7829K7J9990J8439K6J8579-0060K7J9970J8439K7-1128J8579K6J82 

J25259 9^00 6 OK 7 J9970J8429K7-112 8J8 2 99 K6J7 819-0060K7-2954J8666J7-3914J7819K6J7809J 

J2600ai59K600b60J8439K7-2006j7809K6J7799-0060K600060J8439K7--1964J7809K6J7789-006 

J26750K7-2954J8666J703938J7799J7-3914J7789K7-2798J8396J703938J7779J7-3914J7769K7 

J2750-2882J8396J703938J7779J7-3914J7769L4J7789-0102K7-2954J8396J703938J7779J7039 

J282538J776<J703938J8359J7-3914J8349K7-2798J7756J703938J7749J703938J7739J7-3914J 

J29007729K7-2882J7756J703938J7749J703938J7739J7-3914J7729K600060J7749K7-1614J773 

J29759K7-1614J7729K6J7719-0060K600060J7719K7-1S90J7729K6J7709-0060K600060J7749K7 

J3050-1644J7739K6J7699-0060K600060J7749K7-1644J7739K7-1644J7729K6J7689-0060K6000 

J312560J7729K7-1722J7739K6J7679-0060K600060J7749K7-1614J7739K6J8579-0060K600060J 

J32007739K7-1644J7729K7-1722J8209K7-1614J8579K6J7669-0060K7-2954J7756J703938J774 

J32759J703938J7739J7-3914J7729K7-2954J7756J703938J7719J703938J7709J703938J7699J7 

J335003938J7689J703938J7679J7-3914J7669H8J7669-0060J702452-0555KRJ8690049J785004 

17909H91222000017989H91230400017839000000-0001786900H9 13432017659*962500000*0000 

J34259-OOOQ026J3430J7861K600060J8439K7-1128J7649K7-0480J7639K7J9870-0060K7-1128J 

J35007659K6J8339-0060K600060J8429K7-0480J7639K7J9870-0060K6J8329-0060K600060J788 

J35759K7-1128J7619K7-0480J7639K7J9870-0060K7-1128J7629K6J7889-0060K7-2954J8666J7 

17649N21600000017639N05000000017629H7 1000000017619N51000000017859H913704000*0000 

J365003938J8339J703938J8329J703938J7899J7-3914J788949J3424049J3746-27260150Q0i50 

J 3725QQ15QQ-15QQ0150Q-357449J3778- 2 726R150-0150QR150 — 357449 J3820-2726R150-R 150- 

J3800R150-R150-R150 — 357449J3862-2 726J050-JQ50-J050-J050-J050 — 357449 J4274-2726- 

J38753654J 1-3690- 107-3654 J3-3690-602H9N5K407-4-3654JO-3690-6H3N602K407-4-3654JO- 

J 39503690-603* 1N5K407-4-3298-3654 J 1-3690- 1O7-3654J3-3690-6H5O7N7K4O7-4-3654J0-36 

J402590-7H507N7K4K007-4-3298-3654J 1-3690- 107-3654J3-3690—6N3N6H7K4Q7— 4— 3654-9-36 

3V 



J410090^8N3N6W7PlPOK407-4~3298~3654Jl»3690-107~3654J3~3690-702N 8W903K407-4-3298~t J 
J4A7S3654Jl-3&30-107-3fe54J3-3690-7Hi03MiN5K4fl7-^ 

18*69*9J371000018129W9J375200017759H9J378400018399>I9J382600018609#I943868000*0000 
J4250K4C7-4-4-3298-3298-3574649J4332-2726H100— -3654-5H100 — 3654-5H100— 3654-5M10 
J43250^»3S7449J4446-27g6~3690J4~0^003W8W902-OM902»003W8M5-04030~-y90K^ONfe^OO 
J44003l«ll5-OP4-ON3N6N6lil702-ON6H6-OH4N6-OPiP3PO-357449J44B8-2726Ni50QHl50QNi50QNl 
J4475g0QN150Q-35744902562*~0N6W6-0W4N6~0PlP3PO-357449J44a8-2726NlSOQIII5OW15OWl 
18229H9J428000017949K9J433800018199H9J4452000*8399M9J382600018609M9J3868000*OQOO 
~0402J4496J7609J8569 — QOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOJ 10100010101Q1010J9999»M118 
-2818^35641440062644259566463495545620*3117172166812602881082761149154000-626029 
-0 152340000000 1023902819001003600000005004900000*15165740000J1616525-04023816521 



*»*♦• LISTING OF 


DATA CARDS OUTPUT BY THE TEST 


PROGRAM 


















.40000000 


.60000000 


. X wwwv 






001 


1.11100000 


2.22200000 


3.33300000 


4.44400000 




002 


FLOATING POINT ARITHMETIC 








003 


*• A X W wU\JwC V X 


??flGf)Oflf)F 01 

. UvUUUUL wX 


-^OOOOOOF 01 


•14000000E 01 


•15000000E 01 


004 


•UUUVUUUUC "3U 


« 1 f uuuuuuc Ul 


. X OUUUUVUC Ul 


•19000000E 01 


•20000000E 01 


005 


€.• lUvUUUUU 










006 




£ • fvUVUvUv 








007 




3- 60000000 

tf, • WW wwwv 








008 


(UvUVUuU 










009 


& • lUUUVUUU 


^ nnnnnnnn 








010 


•t . nfifinnnnn 


1 1\ r\t\c\(\t\t\c\(\ 

lUtUVUUUUVU 








011 


fcl A uuuuuuuu 


XX. VvvUUUvV 








012 


J7*UVVUVUUU 


i 7 nnnnnnnn 

X 1 tUUUVvWUU 








013 


44 . 00000000 


41.00000000 








014 


50*00000000 


1.00000000 








015 


1.00000000 


2.00000000 


? aaaaaaaa 


4.00000000 


5.00000000 


016 


6*00000000 


7.00000000 


ft aaaaaaaa 


9*00000000 


10.00000000 


017 


1.10000000 


2.10000000 


3.10000000 


4.10000000 


5.16600000 


016 


6.10000000 


7.10000000 


8.10000000 


9. 10000000 


10.10000000 


019 


411000000 


•22000000 


.33000000 


•44000000 


•55000000 


020 


•66000000 


•77000000 


•88000000 


•99000000 


.10000000 


021 


•11000000 


.12000000 


.13000000 


• 14000000 


.15000000 


022 


•16000000 


•17000000 


.18000000 


.19000000 


•20000000 


023 


•21000000 


•22000000 


.23000000 


•24000000 


.25000000 


024 


INTEGER 










025 


22 


11 


33 






026 



o 



LCCTN 


CP 


P/L 


Q 


PG 


LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 
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CO 


000 


♦ * PDQ 


FORTRAN PROCESSOR C2 10/24/63* 


00402 
CC4G2 


16 


11631 


CCO-G 


00 
00 


010 
020 


INITL 


DCRG 
TFM 


402* 

OMM1,0,10* 




00414 
00426 


16 
16 


08535 
16243 


R9999 
-6600 


00 
CO 


030 
040 




TFM 
TFM 


SMCNT, 99999* 

L ,6600* 




00438 
CC450 


26 
15 


16861 
C0459 


16243 

cccoo 


00 
CO 


050 
060 




TF 
TOM 


LOAD , L* 
SKPPCH, 0* 




0C459 
00462 


16 


11495 


CCO-1 


00 
00 


070 
030 


SKPPCH 
BEGIN 


CS 
TFM 


,♦-2* 

SUBN, 1,10* 




00474 
0C486 


24 
47 


16243 
CC534 


08535 
C1100 


00 
00 


090 
100 




C 

BNH 


L , SMCNT* 
♦ £484 




CC498 
G0510 


34 

39 


00000 
16831 


00102 
00 ICC 


00 
CO 


110 

130 




RCTY 
WATY 


* 

OVERL* 




0C522 
0C534 


15 
26 


00459 
00702 


CCCOJ 
11595 


00 
00 


140 
150 




TDM 
TF 


SKPPCH, 1,11* 
IFSWCH,ZER09-2* 




0C546 
00558 


47 
37 


0C694 
17511 


CC4C0 
C0500 


CO 
00 


160 
170 




BNC4 
RACD 


BA* 
CHI * 




0C570 
CC582 


16 
26 


00641 
00680 


J7655 
00641 


CO 
00 


18C 
190 




TFM 
TF 


♦£71,CHI£144* 
♦£98, ^£59* 




00594 
0C6C6 


12 
14 


0C641 
00641 


CCO-2 
J7511 


00 
00 


200 
210 




SM 
CM 


♦£47,2,10* 
♦£35, CHI* 




0C618 
00630 


47 

26 


00462 
00470 


C130C 

ccoco 


00 
00 


220 
230 




BL 
TF 


BEGIN* 
fiEGIN£8* 




00642 
00654 


43 
43 


00674 
00674 


C0470 
00469 


00 

00, 
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FAC, 91* 


,10, ADJUST EXPONENT* 


01292 
01304 


21 

33 


00052 
00053 


01119 
CCOCO 


01 
CI 


040 
050 


FMP2 


A 

CF 


FAC-8, FMP-9, , COMBINE EXPONENTS* 
FAC-7* 


01316 
01328 


46 
49 


01016 
00912 


C1300 
OCOCO 


01 
01 


060 
070 




8NN 
B 


ENDD-36* 
ERG* 












01 
01 


080 
090 


* 
• 




* 
* 
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01 


100 


» 


FLOATING DIVIDE AND REVERSE DIVIDE* 










01 


110 


« 




* 


01344 




5 




01 


120 




OS 


5* 


01346 


26 


01381 


G0060 


01 


130 


FOVR 


TF 


FCV-l.FAC,, INTERCHANGE OPERANDS* 


01358 


26 


CC060 


C1345 


01 


140 




TF 


FACFDVR-l* 


01370 


41 


00000 


ccoco 


01 


150 




NOP 


* 


01382 


32 


GOG53 


oooco 


01 


160 


FDV 


SF 


FAC-7* 


C13S4 


25 


C1461 


01374 


01 


170 




TO 


DVRNDG 1 1 ,FDV-8, .ROUNDING* 


014C6 


28 


CC091 


CC060 


01 


180 




LD 


91 ,FAC* 


C1418 


43 


01438 


CL374 


01 


190 




BC 


»£20,FDV-8* 


0143C 


49 


C1C62 


ccooc 


01 


200 




B 


ER9* 


01438 








01 


210 




DCRG 


»-3* 


01438 


32 


01374 


coooo 


01 


22C 




SF 


FDV-3* 


01450 


25 


00092 


CG40C 


01 


230 


DVRND 


TD 


92 ,400* 


01462 


29 


00091 


C1381 


01 


240 




D 


91.FDV-1,, DIVIDE* 


01474 


46 


0C948 


01200 


CI 


250 




F»E 


ZERFAC* 


01486 


25 


00C99 


CGG91 


01 


26 




Tl) 


99,91, t SAVE SIGN* 


01498 


22 


00052 


C1373 


01 


270 




S 


FAC-8,FDV-9, .SUBTRACT EXPONENTS* 


01510 


43 


01554 


C0083 


01 


280 




BD 


FDVlt 83* 


G1522 


32 


00C84 


CCOCO 


01 


290 




SF 


84,,, LEADING ZERO* 


01534 


16 


01119 


CCONO 


01 


300 




TFM 


FKP-9,50, 10, SET EXP ADJUST* 


01546 


49 


01280 


CCOCO 


01 


310 




B 


FMP2-12* 


01554 








01 


320 




DORG 


♦-3* 


C1554 


26 


00060 


00090 


CI 


330 


FDV1 


TF 


FAC,90,, NON-ZERO LEADING DIGIT* 


01566 


16 


01119 


COOM 


01 


340 




TF* 


FMP-9, 51,10. SET EXP ADJUST* 


01578 


49 


01292 


CCCCO 


01 


350 




B 


F!*P2,,, GO TO TEST AND hND* 










CI 


360 


* 




* 










01 


370 






* 










01 


380 


* 


FIXED POINT ARITHMETIC* 










01 


390 


* 




* 


01590 


22 


00060 


C1589 


01 


400 


FXS 


S 


FAC,«-1* 


01602 


49 


01626 


COOOO 


01 


410 




B 


*C24* 


C1614 


21 


00060 


C1613 


01 


420 


FXA 


A 


FAC,*-1* 


01626 


46 


C1638 


C1400 


01 


43C 




3V 


*S12* 


01638 


42 


00000 


CCCCO 


01 


440 




SB 


* 


01644 








01 


45 




DCRG 


*-5* 


01644 


23 


00060 


C1643 


01 


460 


FXP 




FAC,*-1* 


01656 


32 


0CC96 


CCCCO 


01 


470 




SF 


96* 


C1668 


26 


00060 


00099 


01 


480 




TF 


FAC,99* 


01680 


42 


00000 


00000 


01 


490 




BB 


* 


01686 








01 


500 




DGRG 


*-5* 


01686 


26 


01721 


ccoto 


01 


510 


FXDR 


TF 


FXD-1 , F AG* 


01698 


26 


00060 


01685 


01 


52C 




TF 


FAC,*-13* 


01710 


41 


CCOOO 


ccoco 


01 


530 




NOP 


* 


01722 


14 


01721 


c-o c- 


01 


540 


FXC 


Ctf 


*-l, ,811* 


01734 


46 


01784 


C1200 


01 


550 




BE 


FXD1* 


01746 


28 


C0099 


CC060 


01 


560 




LD 


99,FAC* 


C1758 


29 


CCC96 


01721 


01 


570 




D 


96, FXD-1* 


01770 


26 


C0060 


CCC95 


01 


580 




TF 


FAC,95* 


01782 


42 


CCCOO 


CCOCO 


01 


590 




BB 


* 


01784 








CI 


600 




DORG 


*-9* 


01784 


25 


00099 


00060 


01 


610 


FX01 


TD 


99.FAC* 


01796 


16 


00060 


0R999 


01 


620 




TFH 


FAC,9999,8* 


01808 


49 


C1GP4 


CCOCO 


Ci 


630 




B 


fcR9£12 , ,5* 


C1816 








01 
01 


64 
65G 


* 


DGRG 


*-3* 
* 
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01 


660 


• 




* 










01 


670 


* 




NEGATION ROUTINE* 










01 


680 


• 




* 


01816 


44 


01040 


00060 


01 


690 


RVSGN 


BNF 


ENDD-12,FAC* 


01828 


33 


00060 


00000 


01 


700 




CF 


FAC* 


01840 


42 


00000 


OCOOO 


01 


710 




BB 


* 


01842 








01 


720 




DORG 


»-9* 










01 


730 






* 










01 


740 


• 




* 










01 


750 


• 




SYMBOLS AND CONSTANTS* 










01 


760 


* 




* 


00060 








01 


770 


FAC 


OS 


,60* 


19930 








01 


780 


LTAB 


DS 


, 19930* 


19950 








01 


790 


ETAB 


DS 


,19950* 


01851 




10 




01 


800 


FLTONE 


DC 


10,5110000000* 


01863 




12 




01 


810 


FNINES 


DC 


12,999999999999* 


01882 




19 




01 


820 


FZEREC 


DC 


19,3* 


01893 




11 




01 


830 


L0G10 


DC 


11,2302585093* 


01907 




14 




01 


840 


ONE 


DC 


14, 10000000000000* 


01912 




5 




01 


850 




DC 


5,99995* 


01915 




3 




01 


860 




DC 


3,0* 


01921 




6 




01 


870 




DC 


6,999500* 


01923 




2 




01 


880 




DC 


2,0* 


01930 




7 




01 


890 




DC 


7,9950331* 


01931 




1 




01 


900 




DC 


1,0* 


01939 




8 




01 


910 


L0G11 


DC 


8,95310180* 


01948 




9 




01 


920 


L0G2 


DC 


9,693147181* 1 


01958 




10 




01 
01 


930 
940 


FIXER 
* 


DC 


10,5810000000* 

*. 










01 


950 


* 




* 










01 


960 


• 




EXPONENTIATION ROUTINES* 










01 


970 


• 




* 


01962 




4 




01 


980 




DS 


4* 


01964 


16 


01999 


0-000 


01 


990 


FAXIN 


TFM 


FAXI-1, 0,8, A**3-Nn* 


01976 


22 


01999 


01963 


02 


000 




S 


FAXI-1»*-13* 


01988 


41 


00000 


OCOOO 


02 


010 




NOP 


* 


02C00 


14 


01999 


0-00- 


02 


020 


FAXI 


CM 


•-1,0,811, A««N* 


02012 


46 


02284 


01200 


02 


030 




BE 


SETONE* 


02024 


46 


02080 


01100 


02 


040 




BP 


*£56* 


02036 


33 


01999 


cooco 


02 


050 




CF 


FAXI-1* 


02048 


16 


01058 


-2080 


02 


060 




TFM 


END0£6,#£32,,SET RETURN ADDRESS* 


02060 


26 


01345 


C1851 


02 


070 




TF 


FDVR-1, FLTONE* 


02072 


49 


01346 


CCOOO 


02 


080 




B 


FDVR* 


02080 








02 


090 




DORG *-3* 


02080 


26 


01127 


00060 


02 


100 




TF 


FMP-LfFAC* 


02092 


16 


01058 


-2104 


02 


110 




TFM 


ENDD£6,»£12,,SET RETURN ADDRESS* 


02104 


12 


01999 


000-1 


02 


120 




SM 


FAXI-1, 1,10* 


02116 


46 


01128 


01100 


02 


130 




BP 


FMP* 


G2128 


16 


01058 


-1C6C 


02 


140 




TFM 


ENDDS6, BB,, RESTORE COMMON EXIT* 


0214C 


42 


00000 


OCOOO 


02 


150 




BB 


* 


02152 


26 


02187 


01873 


02 


160 


FAXBN 


TF 


FAXB-l,FZEREC-9* 


02164 


22 


02187 


02151 


02 


170 




S 


*£23,*-13* 


02176 


41 


00000 


oooco 


02 


180 




NOP 


* 


0218 8 


26 


19929 


0C060 


02 


190 


FAXB 


TF 


LTAB-1 , FAC* 


C22CC 


16 


01058 


-2220 


02 


200 




TFM 


ENDD£6,»£20,,SET RETURN ADDRESS* 
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n?i Aft 

UA\ lOO 


2A 
AO 




oooao 


02 

U A 


1 QO 


FAXA 

• MAD 


TF 


LTAB— 1»FAC* 




02200 
02212 

wait A A 


16 
49 


19930 


-2220 
00000 

www 


02 
02 


200 
210 




TFH 
B 


ENDD£6,*S20, .SET RETURN ADDRESS* 
LTAB* 




02220 
02220 


26 


01127 


02187 


02 
02 


220 
230 




00RG 
TF 


*-3* 

FMP-1»FAXB-1* 


1 


02232 


16 

4Q 


01056 

01 128 


-2252 
ooooo 

www 


02 

02 


240 

250 

Cm V 




TFH 

B 


ENDD&6 9 «S20,,5ET RETURN ADDRESS* 
FHP* 




02252 

U A A V A 


16 


01 058 


—1060 

A V V? V 


02 

02 


260 

270 




D0RG 
TFH 


•-3* 

ENDD8.6* BB.. RESTORE COMMON EXIT* 




02264 

02276 
UA A I O 


26 

4Q 


19949 

1 Q9N0 


00060 
ooooo 


02 

02 


280 

290 

Cm * W 




TF 
B 


ETAB-1,FAC* 
FTAB. .5* 




02284 

09?A4 

U A AO"t 


26 




Ol A51 


02 

02 

\J a 


300 

310 


SETTiNE 


D0RG 
TF 


*-3* 

FACtFLTONE* 




02296 

W A A 70 


M2 


00000 


ooooo 


02 

02 


320 

330 




BB 

D0RG 


t v0* 

«-9* 












02 

02 


340 






* 
* 












02 

OP 

U A 


360 

"*70 


• 


FIX A FLOATING PUINI NUHBfcK* 
* 




02298 


26 
i c 

L 3 


00479 


01958 

AAAAA 
UUUUU 


02 

UA 


380 


FIX 


TF 
TOM 


FAD— ltFIXER* 
ADCT2-36 ,0* 




02322 
0233% 


16 

▲a 
44 


01058 
UU492 


-2366 
UUUoU 


02 

AO 

U2 


390 

A. A A 
4UU 




TFH 
BNF 


ENDD&6t*&44» v SET RETURN ADDRESS* 
FAD&12 ,FAC* 




02346 

02357 


32 


-0479 


R050- 


02 

AO 

U2 


410 

AO A 

42U 


TO CVf 


SF 
DS 


FAD-1 ,90500 ,2711* 
»•* 




02358 
f\ 02366 


M9 


00*92 


ooooc 


02 

AO 

02 


430 

AAA 

44U 




B 

0ORG 


FAD€12 , ,04* 
•-3* 




V/ 02366 
02378 


16 

O O 

32 


01058 

-"OOP f 


-1060 

kll AAA 

N14UV 


02 

AO 

U2 


450 

AAA 




TFH 

SF 


ENDDG6, BB,, RESTORE COMMON EXIT* 
FAC-3 ,51408 ,2711* 




02389 
02390 


iA o 

M2 


AAAAA 

00000 


AAAAA 
OOOOO 


02 

AO 

02 


470 

ADA 

480 


TRFLC 


OS 
B8 


.»* 

, *0* 




02392 








02 

AO 

02 


490 

C AA 

!>UU 


* 


D0RG 


«-9* 
* 












02 

AO 

02 


510 

C O A 

52U 


• 
* 


FLOAT A FIXED POINT NUMBER* 




02392 


16 


— 0419 


AAAUO 

OOONo 


02 

AO 

02 


530 

C A A 

54U 


• 

ci n AT 
PLUAI 


TFH 


* 

FSB-1,58,210* 




02404 

AO A 1 A 

OZ416 


16 
14 


00056 
UUUoU 


-0000 

A_ A A_ 

0— UU— 


02 

AO 

02 


550 

tin 
!>OU 




TFH 
CH 


FAC-4* 
FAC, 0,811* 




02428 
OZ440 


33 

A A 

49 


00057 

U07SU 


ooooo 

AAAAA 
UUUUU 


02 

AO 

U2 


570 

CQA 




CF 
B 


FAC-3* 
FAD1&12* 




02452 
0246% 


16 

O A 

34 


02482 

AAftAA 

OODUU 


0K539 

AA1 A*l 

00102 


02 

AO 

02 


590 

AAA 
6UU 


STOP 


TFH 
RCTY 


WATY&6 ,SMM ,8* 
* 




02471 
02476 


O A 

39 


1 

OOOOO 


AA1 A A 

00100 


02 

AO 

02 


610 

A OA 

620 


U A TV 

HA 1 Y 


DC 

WATY 


1 • a,*-4* 

* 




02488 

02500 


44 

O A 

26 


02524 
02470 


02479 

A O A C 1 

02451 


02 

A O 

U2 


630 

AAA 

o4U 




BNF 
TF 


•&36 , WATY63* 
MATY— 6 ,ST0P-1* 




02512 
02524 


38 

A O 

48 


02467 

AAAAA 

ooooo 


00100 

AAAAA 
UUUUU 


02 

A O 

02 


650 

AAA 

66U 




WNTY 

H 


WATY-9* 
* 




02529 
U25.30 


**> 
42 


4 

AAAAA 

uuuuu 


AAAAA 
UUUUU 


02 

AT 

Ua 


670 

AO A 
DOU 


EMM 


DAC 
BB 


4 ,END3, *-6* 
* 




02538 
02539 




6 




02 
02 


690 
700 


SMM 


D0RG 
DAC 


*-9* 

6 .STOP a* 




02550 
_ 02562 


27 
16 


02464 
02482 


02463 
-2529 


02 
02 


710 
720 


END 


BT 
TFH 


WATY-12 ,MATY-13* 
WATYE6 , EMM ,7* 
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02586 


26 


02604 


C2585 


02 


750 


TRACE 


TF 


*S18 ,»-l* 






02598 
02610 


26 
47 


00000 
02620 


C0060 
00442 


02 
02 


760 
770 




TF 

BNC4 


,FAC* 
*£10 ,42+ 


_ . 





02622 
02633 


15 


C2585 
1 


00000 


02 
02 


780 
790 




TDM 
DC 


TRACE- 1 ,* 

1 , ' 


it «* 




02634 
02646 


34 

38 


00000 
02581 


00102 
CC100 


02 
02 


800 
810 




RCTY 
WNTY 


TRACc-5* 






02658 
0267C 


16 
44 


C3C61 
02694 


-2384 
00057 


02 
02 


820 
830 




TFM 

BNF 


PINFMT ,TRFLC-5* 
»S24 ,FAC-3* 






02682 
02694 


16 
16 


03061 
C3913 


-2352 
-0060 


02 
02 


840 

850 




TFM 
TFM 


PINFMT ,TRFXC-5* 
LAST~1,FAC* 






02706 
02718 


3 1 
49 


03165 
02978 


03618 
OOOCO 


02 
02 


860 
870 




TR 

B 


MARK-2 , RTPARS44* 
WATYES24* 






C2726 








02 
02 


880 
890 


DURG *-3* 
* INPUT/OUTPUT ROUTINES* 







C2726 
C2738 


26 
44 


02761 
03026 


03061 
03376 


02 
02 


900 
910 


LTPAR 


TF 

BNF 


BOX , PINFMT* 
LOOK , L TPARX* 






0275C 
02761 


33 


03376 


CCOCO 


02 
02 


920 
930 


BOX 


CF 
DS 


LTPARX* 
,** 






02762 
02774 


25 
44 


03168 
03506 


03165 
03159 


02 
02 


94C 

950 




TC 
BNF 


MARKC1 , M ARK-2* 
RE ADCK , MARK1* 








02786 
02798 


49 
16 


03026 
03167 


OOOCO 
C00-5 


02 
02 


960 
970 


RACD 


B 

TFM 


LOOK* 

MARK, 5, 10* 








0281C 
02822 


26 
49 


C3061 
02858 


027 97 

CCOCO 


02 
02 


980 
990 




TF 

H 


PINFMT, *-13* 
*f.364 






C2834 
02846 


31 

26 


03165 
C3061 


C3226 
C2833 


03 
03 


OOC 
01 C 


R AT Y 


TR 
TF 


M ARK-2 , PCSTS32* 
PINFMT,*- 13* 






C2858 
0287C 


15 
49 


03159 
03002 


00007 

ococo 


3 
03 


020 
03C 




TDM 

R 


MARK 1,7* 
LCOK-24* 






028 8 2 
02894 


16 

26 


03167 
03C61 


OCO-4 
028 81 


03 
C3 


040 

05 


wACC 


TFM 
TF 


MARK, 4, 10* 
PINFMT, *-13* 






02*306 

02918 


49 
31 


02978 
C3165 


cccco 

C3594 


03 
C3 


06 C 
07C 


WATYSC 


U 

TR 


*672* 

M ARK-2 ,RTPAR£2C* 






C 2 9 3 
02942 


26 
49 


C3061 
02978 


029 17 

GCOOO 


03 

03 


080 
090 




TF 


PINFMT ,*-13* 
+ 8 36* 


-- 





02954 
0296 6 


31 

26 


03165 
C3C61 


3226 
02953 


03 
03 


100 
110 


WAT YE 


TR 
TF 


MARK- 2 , PCST02* 
PINFMT, *-13* 






C2978 
C299C 


15 
16 


03159 
C312B 


OOOCR 
-5103 


03 
03 


120 
130 




TCM 

TF^ 


MARK I, 9, 11* 
NEXT, I rtOUT* 






030C2 
30 14 


16 


03376 
00061 


CL19M 
C1880 


03 
3 


140 
ISO 




TFM 
TR 


LTPARX, POST, 811* 
FACS1 ,FZEREC-2* 














03 
3 


160 
170 


* 

* ROUTINE 


THAT DECIPHERS FORMAT 


SPECIFICATIONS* 


302 6 
03038 


16 
11 


03359 
03061 


OCOLM 
-0005 


03 
03 


ISC 
190 


LOCK 


TFM 

AH 


STCWX,34, 1011* 
•623,^* 






03050 
03061 


26 


C3250 


CCOCO 


03 
03 


200 
210 


PINFMT 


TF 

DS 


BRNCHS6* 
,** 






03062 


44 


03244 


03250 


03 
03 


22 
230 


* IF 


BNF BRNCH, BRNCHC6* 
NO FLAG, NUMERIC SPEC. OTHER VU SE % / n 


X H* 


03074 
03086 


44 
44 


C3108 
03252 


03159 
03374 


03 
03 


240 
250 




BNF 
BNF 


*£34,MARK1* 
TRACLASTX* 






03098 
C311C 


32 
44 


C3375 
03378 


00042 
03 167 


03 
03 


261 
270 


WRITE 


SF 
BNF 


RTPARX,42* 
CARD, MARK* 






03122 
03133 


16 


C51C3 
1 


ooc-o 


03 
03 


280 
290 




TFM 

DC 


INOUT, , 10* 
1 , a> t * * 
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03128 








03 


30 C 


NEXT 


DS 


t WRITES IB* 


03134 


44 


031.58 


C3168 


C3 


310 


" READ 


BNF 


• 624 v MARK&1+ 


C3146 


34 


-CO-N 


C-JC2 


3 


32 C 




RCTY 


00005 , ,25689 f P IS 10 


C3156 




1 




3 


330 




DC 


1,S),*-1* 


03147 








03 


340 


FIXFLG 


DS 


,*-10* 


0315 8 


39 


051G3 


onoco 


C3 


35C 




WA 


INOUT* 


03167 








03 


36C 


?* ARK 


DS 


, »~2, INPUT/OUTPUT DEVICE* 


03159 








03 


370 


MARK 1 


DS 


,*-10, INPUT GR OUTPUT* 


03170 


15 


03168 


CCOCO 


03 


330 


CROC 


TDK 


MARKC1 ,* 


C31S2 


44 


03266 


03159 


03 


39C 




BNF 


ACCEPT, MARK1* 


C3194 


16 


03128 


-5103 


03 


400 


POST 


TFM 


NEXT , INOUT* 


C32C6 


44 


C3026 


03375 


03 


410 




BNF 


LCOK » RT P ARX* 


03218 


33 


03375 


C — JO 


03 


420 




CF 


RTPARX ,10 ,8910* 


03229 




1 




03 


430 




DC 


1,2,** 


03230 


44 


02774 


03374 


03 


440 




BNF 


LTPAR£48 ,LASTX* 


C3242 


42 


coooo 


ocooo 


03 


450 




Bb 


* 


03244 








03 


460 




DCRG 


*-9* 


03244 


4R 


00000 


ccooo 


03 


470 


BRNCH 


B 


»,1* 


03251 








03 


480 




DCRG 


*-4* 


C3251 




1 




03 


490 




DC 


1,2* 


03252 


44 


03914 


03166 


03 


500 


TRAC 


BNF 


LAST , MARK-1* 


03264 


42 


000 00 


ocooc 


03 


51C 




BB 


* 


C3266 








03 


520 




DCRG 


*-9* 


C3266 


44 


03026 


C3167 


03 


530 


ACCEPT 


BNF 


LOOK, MARK* 


03278 


47 


C3026 


00400 


03 


540 




BNC4 


LCOK* 


03290 


49 


03134 


OCOOC 


03 


550 




B 


READ* 


03298 








03 


560 




DORG 


*-3* 


03298 


44 


03506 


03159 


03 


570 


SLASH 


BNF 


READCK, MARK1* 


03310 


15 


03181 


oooc- 


03 


580 




TDK 


CRCD&11 , ,11* 


03322 


14 


03128 


-5103 


03 


590 




CH 


NEXT, INOUT* 


03334 


47 


03110 


01200 


03 


600 




BNE 


WRITE* 


03346 


44 


03378 


03167 


03 


610 




BNF 


♦632, MARK* 


03358 


34 


00000 


00102 


03 


620 


FLAGS 


RCTY 


* 


03370 


49 


03194 


00000 


03 


630 




IS 


POST* 


03378 








03 


640 




DORG 


»-3* 


03378 


26 


03396 


03128 


3 


650 


CARD 


TF 


*£18,NEXT* 


03390 


16 


OCOCO 


OCO-0 


03 


660 




TFM 


t,10* 


03402 


11 


03396 


000-2 


03 


670 




AH 


*-6,2, 10* 


03414 


14 


03396 


-5263 


03 


680 




Ctf 


*-18 , INGUT6160* 


03426 


47 


03390 


01300 


03 


690 




BL 


*-36* 


03438 


11 


03473 


000-1 


03 


700 




h¥ 


♦£35, 1, 10* 


03450 


31 


05256 


00914 


03 


710 




TR 


IN0UTS153 ,ER0£2* 


03462 


15 


05261 


-COCO 


03 


720 




TQM 


IN0UTC158, ,7* 


03474 


25 


05259 


03472 


03 


730 




TO 


INGUT£156,»-2* 


03486 


25 


05257 


03471 


03 


740 




TC 


INCUT£154,»-15* 


03498 


49 


03158 


OGOOO 


03 


750 




B 


R EAD£24* 


C35C6 








03 


760 




DURG 


*-3* 


035C6 


44 


C3153 


C3167 


03 


7 70 


READCK 


BNF 


READf.24 , MARK* 


03518 


26 


03548 


€3061 


03 


7 80 




TF 


*£30,PINFMT* 


03530 


11 


03548 


-0005 


03 


790 




AM 


*£18,5* 


03542 


14 


00000 


-3298 


03 


80C 




CM 


, SLASH* 


03554 


47 


03134 


C12C0 


03 


810 




BKE 


READ* 


03566 


49 


03358 


CCOCO 


03 


82 




t\ 


SLASHC6C* 


C3574 








03 


83 




DCRG 


*-3* 


C3 574 


26 


03061 


02 761 


3 


840 


•RTPAR 


TF 


P INFMT, BOX* 


lot 
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03586 


32 


03375 


OG-JO 


03 


850 




SF 


RTPARX ,10 ,910* 


03597 




1 




03 


860 




DC 


1,3,»* 


03598 


44 


03622 


03373 


03 


870 




BNF 


♦£24,NUM8X* 


0361C 


32 


03374 


CCOJC 


03 


880 




SF 


LASTX ,10 ,10* 


C3621 




1 




03 


890 




DC 


i»a,^* 


03622 


44 


03194 


03159 


03 


900 




BNF 


P0ST,MARK1* 


03634 


25 


03181 


03165 


03 


910 




TO 


CRCDC11 ,MARK-2* 


03646 


49 


03322 


00000 


03 


920 




B 


SLASH624* 


03654 








03 


930 




DORG 


♦-3* 










03 


940 


♦ COMBINED 


HTYPE AND XTYPE* 


03654 


16 


03821 


-3677 


03 


950 


XTYPE 


TFM 


TF£11,^£23* 


03666 


33 


03358 


CCO-0 


03 


960 




CF 


HTYPEX,,10* 


03678 


44 


03774 


03359 


03 


970 




BNF 


SKIP,STOWX* 


03690 


11 


03061 


000-2 


03 


980 


HTYPE 


AM 


PINFMT,2,10* 


03702 


26 


03725 


03061 


03 


990 




TF 


♦623,PINFMT* 


03714 


26 


03889 


00000 


04 


000 




TF 


COUNT* 


03726 


44 


03774 


03358 


04 


010 


LOOP 


BNF 


SKIP,HTYPEX* 


03738 


11 


03061 


000-2 


04 


020 




AM 


PINFMT,2,10* 


03750 


44 


C383G 


C3159 


04 


030 




BNF 


HR ,MARK1* 


03762 


26 


03821 


C3061 


04 


040 




TF 


TF£11,PINFMT* 


03774 


44 


03854 


03159 


04 


050 


SKIP 


BNF 


XR ,MARK1* 


03786 


26 


03816 


03128 


04 


060 




TF 


♦630, NEXT* 


03798 


11 


03128 


CC0-2 


04 


070 




AM 


NEXT, 2, 10* 


C38 10 


26 


COOCC 


CCOCO 


04 


080 


TF 


TF 


* 


C3822 


49 


03866 


OOOCC 


04 


090 




B 


TIEH* 


C383C 








04 


100 




DORG 


♦-3* g 


03830 


26 


03848 


03061 


04 


110 


HR 


TF 


♦£18,PINFMT* 1 


03842 


26 


00000 


05103 


04 


120 




TF 


, INOUT* 


03854 


31 


05102 


05104 


04 


130 


XR 


TR 


INOUT-1, INGUTfcl* 


03866 


12 


03889 


000-1 


04 


140 


TIEH 


SM 


COUNT, 1,10* 


03878 


46 


03726 


01100 


04 


150 




BP 


LOOP* 


03889 








04 


160 


COUNT 


DS 


,♦* 


C3&90 


44 


04262 


03359 


04 


170 




BNF 


STOW,STOWX* 


03902 


49 


03026 


00000 


04 


180 




B 


LOOK* 










04 


190 


♦ ALL 


LIST 


INSTRUCTIONS BTM TO NUMBER* 










04 


200 


♦UNLESS LAST IN LIST,* 










04 


210 


♦ THEN BTM 


TO LAST* 


03914 


26 


03937 


03913 


04 


220 


LAST 


TF 


NUMBER- 1 ,^-l* 


03926 


32 


03374 


COOOO 


04 


230 




SF 


LASTX* 


C3938 


33 


03373 


00042 


04 


240 


NUMBER 


CF 


NUMBX,42* 


03950 


44 


3^48 


03250 


G4 


250 




BNF 


♦-2,BRNCH£6* 


03962 


33 


03250 


COOOO 


04 


260 




CF 


BRNCHS6* 


C3974 


32 


03247 


CCOCO 


04 


270 




SF 


8RNCHE3* 


03985 








04 


280 


EXP 


DS 


,♦* 


03986 


32 


G3249 


00000 


04 


290 




SF 


BRNCHS5* 


03997 




1 




04 


300 




DC 


i,a,^ 


03996 








04 


310 


SAVE 


DS 


,♦-1* 


03998 


31 


03359 


03147 


04 


320 




TR 


SIGN-2,FIXFLG* 


04010 


44 


05316 


033 59 


04 


330 




BNF 


INPUT, MARK1* 










04 


340 


♦ THE 


FOLLOWING ROUTINES PREPARE* 










04 


350 


♦NUMERIC DATA FOR OUTPUT* 


04022 


26 


04045 


03937 


04 


360 




TF 


♦£23,NUMBER-1* 


04034 


26 


00060 


0CCC9 


04 


370 




TF 


FAC,9* 










04 


380 


♦ OUTPUT D 


,E,F, OR I TYPE NUMERIC* 


04C46 


16 


04853 


-0056 


04 


390 


DEFI 


TFM 


A£ll ,FAC-4* | 


04058 


14 


G3246 


OCORR 


04 


400 




CM 


BRNCH£2,99,1011* 



o 



103 



CP 
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Q 
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0407C 


46 


04746 


01200 


04 


410 




BE 


I TYPE* 






04082 


14 


C3246 


CCORM 


04 


420 




CM 


8RNCH62 ,94 


,1011* 




04C94 


46 


04898 


01200 


C4 


43 C 




BE 


DTYPE* 






C41C6 


46 


04570 


01100 


04 


440 




BH 


AOUT* 














04 


450 


* STORE SIGN FOR E OR F.SAVE 


EXPONENT* 




04118 


26 


03996 


00052 


04 


460 




TF 


SAVE ,FAC-8* 






0413C 


12 


03996 


OOONO 


04 


470 




SM 


SAVE ,50 


,10* 




C4142 


44 


04166 


00060 


04 


480 




BNF 


*£24 , FAC* 






04154 


16 


03361 


CCOKO 


04 


490 




TFM 


SIGN, 20, 10* 






C4166 


14 


03246 


OCORN 


04 


500 




CM 


BRNCH£2,95,1011* 






04178 


47 


04966 


01300 


04 


510 




BL 


FTYPE* 






04190 


32 


03362 


CCOOO 


04 


520 


ETYPE 


SF 


ETYPEX* 






042C2 


16 


03985 


000-0 


04 


530 




TFM 


EXP, ,10* 






04214 


26 


03889 


C3248 


04 


540 




TF 


COUNT, BRNCH64* 






04226 


22 


03889 


03250 


04 


550 




S 


COUNT, BRNCHS6* 






04238 


12 


03889 


000-6 


04 


560 




SM 


COUNT, 6, 10* 






04250 


46 


03654 


01100 


04 


570 


TIE 


BP 


XTYPE* 














04 


580 


* ROUTINE TO STORE DIGITS IN 


OUTPUT BAND* 




04262 


44 


C4310 


C3364 


04 


590 


STOW 


BNF 


*£48,DTYPEX* 






C4274 


26 


04304 


03128 


04 


600 




TF 


•£30, NEXT* 






04286 


11 


C3128 


0C0-2 


C4 


610 




AM 


NEXT, 2, 10* 






C4298 


26 


00000 


03361 


04 


620 




TF 


•SIGN* 






C431C 


12 


03985 


CCO-1 


04 


630 




SM 


EXP, 1,10* 






04322 


47 


04514 


01300 


04 


640 




BN 


HOHO* 






04334 


15 


00C52 


OOOOP 


04 


650 




TDM 


FAC-8 ,7 


♦ 11* 




04346 


44 


04426 


03364 


04 


660 




BNF 


N50,DTYPEX* 




04358 


33 


C0C53 


OCOCO 


04 


670 


N50X 


CF 


FAC-7* 






04370 


44 


04458 


03363 


04 


680 




BNF 


B ,ITYPEX* 






04382 


26 


03361 


00053 


04 


690 




TF 


SIGN , FAC-7* 






04394 


31 


00053 


00054 


04 


700 




TR 


FAC-7 ,FAC-6* 






044C6 


15 


00062 


OCOCO 


04 


710 




TDM 


FAC£2* 






C4418 


49 


04274 


OCOCO 


G4 


720 




B 


ST0W£12* 






04426 








C4 


730 




DORG 


*-3* 






04426 


44 


04370 


0C053 


04 


740 


N50 


BNF 


N50X£12 , FAC-7* 






04438 


15 


00052 


OGOCN 


04 


750 




TDM 


FAC-8 ,5 


»11* 




0445C 


49 


04358 


OCOCO 


04 


780 




B 


N50X* 






04458 








C4 


790 




DORG 


*-3* 






04458 


44 


C4382 


C3365 


C4 


800 


8 


BNF 


N50X£24,FTYPEX* 














04 


810 


* INSERT ZEROS AFTER DEC. IF 


EXP SMALL* 




04470 


11 


C3996 


COO-1 


04 


820 




AM 


SAVE, 1,10* 






04482 


46 


04382 


01100 


04 


830 




BP 


N50XS24* 






04494 


16 


03361 


OCOPC 


04 


84C 




TFM 


SIGN, 70, 10* 






045C6 


49 


04274 


OCOOO 


04 


850 




B 


ST0WE12* 






04514 








04 


860 




DORG 


*-3* 






04514 


44 


04662 


03363 


04 


870 


HOHO 


BNF 


ISETYP,ITYPEX* 






04526 


3 3 


03363 


OCOCO 


04 


880 




CF 


ITYPEX* 






04538 


16 


03361 


000-3 


04 


890 




TFM 


SIGN, 3, 10* 






0455C 


26 


03985 


03250 


04 


900 




TF 


EXP,BRNCH£6* 






04562 


49 


C4262 


CCOCC 


C4 


910 




B 


STOW* 






C457C 








04 


920 




DORG 


*-3* 






0457C 


32 


00051 


CCOCO 


04 


930 


AOUT 


SF 


FAC-9* 






04582 


26 


C4612 


03128 


04 


940 




TF 


*£30 , NEXT* 






04594 


11 


03128 


CCO-2 


04 


950 




AM 


NEXT ,2 


,10* 




046C6 


26 


COOOC 


0C052 


C4 


960 




TF 


, FAC-8* 






04618 


31 


C0051 


CC053 


04 


970 




TR 


FAC-9 , FAC-7* 
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rp 
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Q 
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AJ — 


04630 

W ~ V/ -J \J 


1 7 


03248 


000—1 


04 


980 




SM 


BRNCHS4 ,1 tlO* 






47 


04570 


C1700 

\J X C V \J 


04 


990 




BNE 


ACUT* 




04654 


49 


03026 


00000 


05 


000 




B 


LOOK* 


_ 


046A? 

~ V/ V- j£. 








05 


010 




D0RG 


• -3* 












05 


020 


• EXIT 


TO IS 


ETYP AFTER PASS1 OF I TYPE,* 












05 


030 


♦AND 2ND PASS E,F,D TYPE* 






44 

— i 


0309A 

VJ _J VJ *L VJ 


03 A? 


05 

vj -J 


040 


ISETYP 


BNF 


LOOK t ETYPEX* 












OR 

VJ J 


OR 

VJ -J Vj 


* TACK 


ON EXPONENT* 




04674 

W T VJt i 


3 1 


00057 


03993 


05 


060 




TR 


FAC-3, SAVE-3* 




04686 

VJ *t O O VJ 


1 6 

X VJ 


048R 3 

Vj * V? ^ -7 


—0055 


05 


070 




TFH 


A£ll ,FAC-5* 




n4 aqp 

VJ *t D jl O 


1 6 


n-a 94P 


000—3 

VJ VJ VJ —7 


05 


080 




TFM 


8RNCHS4, 3, 10* 




r>47 1 f) 


9 A 


04740 

Vj *T 1 *T VJ 


03 1 ?fi 


OS 

VJ -J 


090 




TF 


*630 f NEXT* 




047? 9 


1 1 

X X 


V J ito 


000—2 


05 


100 




AH 


NEXT f 2 ? 10* 




VJ*1 1 


1 A 

X c 


OOOOO 


00 OMR 

vy Vj VJ ™ -7 


OR 


no 

X X w 




TFM 


,45*10* 












05 


120 


* NOW 


ENTER 


: I TYPE TO FILE AWAY EXPONENT* 




0474 A 

VJ i # " vj 


1 A 

X o 


fi33A3 


0-000 


05 


130 


ITYPE 


TFM 


SIGN£2 ,0000 ,8, Q IS 


1000 T 


0475P 


44 


0478? 
vj i i vj /_ 


000A0 

\J VJ \J \J \J 


05 


140 




BNF 


*£24,FAC* 




O4770 
vj*t f i vj 


1 A 

x o 


f!33Al 


000K0 


OR 


150 




TFM 


S IGN,2C, 10* 




047P ? 

Ut lot 


3 1 

-> X 


000R 3 


www-/ f 


OR 

W -J 


1 AO 




TR 


FAC-7 ,FAC-3* 




047Q4 

VJ ~ 1 ? ~ 


1 6 

X VJ 


039PR 

XJ J J <J -J 


000—4 


05 


170 

X I w 




TFM 


EXP, 4, 10* 




U "O VJ v) 


4 3 

" _j 


C, 4 « R 4 


o r o s 

Www-/—/ 


OR 

VJ -J 


180 

X w \J 




BD 


*£48 , FAC-7* 




04R 1 Q 


J X 


0005 3 

VJ VJ Vj .»/ J 


000*54 

w w w -J" 


05 


190 

X * w 




TR 


FAC-7 ,FAC-6* 




048 30 


1? 

X «- 


03985 


COO— 1 


05 


200 




SM 


EXP, 1 , 10* 




0484? 


45 


04806 


00054 


05 


210 


A 


BNR 


*-36 ,FAC-6* 




04 P R4 


9 A 

c. vj 


VJ J o o T* 


3 ? 4 ft 

Vj ^j /_ *t C7 


OR 


??0 




TF 


COUNT, BRNCH€i4* 




04866 


12 


03889 


0C0-1 


05 


230 




SM 


COUNT , 1 , 10* 




04 P7P 
vj " ore 


9 ? 


V JOO 7 


03QP R 

Vj -J 7 O -J 


R 

VJ ^J 


?40 

*L " w 




S 


COUNT, EXP* 




0489C 


49 


04250 


00000 

W \/ w w w 


05 


250 




B 


TIE* 




V — CJ J G 








OR 

w -> 


260 




DORG 


«-3* 




04 898 

VJ 1 w 7 L 


33 


03364 


00000 

w w w w W 


05 


270 


DTYPE 


CF 


DTYPEX* 






9 A 


vj -J 7 O -? 


03 7 4 P 


OR 

VJ J 


?P0 




TF 


EXP,BRNCH64* 




04Q7 ? 

VJ *t 7 £ 41 


9 A 


000A9 
vj vj vjvj /£. 


A 

\J VJ \J VJ Vj 


OR 

VJ -J 


?<30 

C 3 VJ 




TF 


FAC62 ,FAC* 




O 4Q 34 
U H ^7 j *t 


4 3 


H4 9A 9 


f 3 9 4 7 


O R 

VJ J 


300 

D VJ V> 




BD 


ST0W,BRNCH£3* 




04Q4 A 


3 X 


VJ VJ Vj> J 


O <5 Q 
vj \j vj j ? 


OR 

VJ J 


310 
^ x vj 




TR 


FAC-7 ,FAC-1* 






4Q 


049 A 9 
vj *+ j£ O t 


o o n r o 

VJ VJ VJ Vj VJ 


OR 

VJ J 


390 

J C VJ 




B 


STOW* 




049AA 








05 


330 




DORG 


*-3* 






9 A 




H3QQA 

UJ 7 7U 


OR 

VJ 


340 

J*t VJ 


FTYPE 


TF 


EXP, SAVE* 




O 4 Q 7 P 


44 


OROO 9 


3 Q Q A 


OR 

VJ ' 


3R0 

J J V 




BNF 


*€24,SAVE* 




04QQ0 

VJ*t 


1 A 
x o 




or n— o 

VJ Vj VJ VJ 


OR 

Vj -J 


3A0 

3 D VJ 




TFM 


EXP, ,10* 




0*5007 


9 A 


\> J O O 7 


03948 


OR 

VJ _J 


37 




TF 


COUNT , BRNCH&4* 




R 1 4 

VJ J VJ X *t 


1 9 

X £. 


O"^ flfiQ 

VJ JU07 


00 0—? 

VJ VJ VJ ^ 


OR 

Vj -J 


3P0 

J O w 




SM 


COUNT, 2, 10* 




05026 


22 


03889 


C3250 


05 


390 




S 


COUNT, BRNCHE6* 




U"u Ju 


9 9 


ri qp r q 


U J70 J 


O R 

VJ ..-> 


4on 

*T VJ VJ 




S 


COUNT, EXP* 




O R R 


47 


0*508? 

VJ J vl O 


1 300 

w X -J w w 


05 


410 




BN 


ERROR* 




VJ -J VJ VJ i. 


3 9 


0^^ A*5 

W J ^/ D -7 


00000 

Vj V> vj VJ VJ 


OR 

VJ J 


4?0 

i c. Vj 




SF 


FTYPEX* 




0R074 


4Q 


fi 4 9 R o 


oonoo 

Vj Vj VJ VJ VJ 


OR 

VJ J 


43 




B 


TIE* 




nRO « 9 

U ZJ V> C t. 








OR 

VJ J 


440 
" " vj 




DORG 


*-3* 












OR 

VI -J 


450 


« CHANGE TO E TYPE* 




O *S O R 9 


1 A 
X o 


U j -J U 


OOO— P 

Vj VJ VJ C 


OR 

V.' - 


4An 


ERROR 


TFM 


BRNCH£6,8,10* 




05094 


49 


04190 


OOOOO 


05 


470 




B 


ETYPE* 




0*5 1 9 

Vf _J X Vj JL 








05 


480 




DORG 


»-3* 




05103 




1 




05 


490 


IN0UT 


DAC 


i,a* 




05315 




212 




05 


500 




DS 


212* 












05 


515 


» ROUTINES 


FOR INPUT OF NUMERICAL DATA* 




05316 


26 


00078 


01875 


05 


525 


INPUT 


TF 


TFAC ,FZEREC-7* 




05328 


16 


06354 


-C070 


05 


535 




TFM 


D IGIT&6 ,TFAC-8* 




















/05 


o 



c 



o 



o 



LCCTN 


CP 


P/L 


Q 


PG 


LN 
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C534C 


16 


05925 


0C0K1 


05 


545 


EXPLK 


TFP 


SETFLG£l,4l, 10* 




C5352 
05364 


16 
14 


0-G60 
03246 


OCOOO 
OCORM 


05 
05 


555 
565 




TF* 

CM 


FAC, ,3* 

ERNCH£2,94, 1011* 





05376 
05386 


47 
47 


05704 
05564 


01300 
C12C0 


5 
05 


575 
585 




BL 
BNE 


NUM* 
AIN* 





C54CC 


16 


C5502 


-5412 


05 
05 


595 
605 


TFF 

♦ CONVERT 


CCM-1S ,*612* 
D TYPE NUMBER* 




05412 
05424 


31 

25 


00 051 
00060 


C0052 
051C3 


05 
5 


615 

625 




TR 
TD 


FAC-9 tFAC-8* 
FAC, INCUT* 




05436 
C5448 


14 
31 


05103 
051C2 


CCOPO 
C51C4 


05 
05 


635 
645 




o. 

TR 


INOUT, 70, 10* 
INOUT-1, INOUT&l* 




0546C 
05472 


46 

32 


05484 
00060 


C1300 
OCOOO 


05 
05 


655 
665 




BNL 
SF 


♦ 624* 
FAC* 




05484 
05496 


12 
47 


03248 
05412 


OCO-1 
01200 


05 
05 


675 
685 




SM 
BNE 


BRNCH&4, 1,10* 
*-84* 




055C8 
05520 


32 
26 


00051 
05537 


OCOOO 
03936 


05 
05 


695 
705 


COM 


SF 
TF 


FAC-9* 

«£17,NUMB£R-2* 




05532 
05544 


26 
49 


00009 
03014 


00060 
00000 


05 
05 


715 
72 5 




TF 

B 


9, FAC* 
LCOK-12* 




05552 
05552 


31 


05102 


05104 


05 
05 


735 
745 




DORG 
TR 


*-3* 

INOUT-1 , IN0UTS1* 




05564 
05576 


14 

46 


05103 
05552 


COO-O 
01200 


05 
05 


755 
765 


AIN 


Ctf 

BE 


INOUT , 
*-24* 


, 10* 


05588 
05600 


16 
16 


05502 
03248 


-5612 
000-5 


0* 
05 


775 
785 




TFH 
TFK 


COM-18 ,AIN£48* 
BRNCH&4 ,5 


, 10* 


05612 
05624 


31 

26 


00051 
CC060 


OC053 
05103 


05 
05 


795 
805 




T,* 
TF 


FAC-9 ,FAC-7* 
FAC , INOUT* 


: 


05636 
05648 


33 
31 


00059 
05102 


00000 
05104 


05 
05 


815 

825 




CF 
TR 


FAC-1* 

INOUT-1 , INOUT&l* 




05660 
05668 


49 


05484 


coooo 


05 
05 


835 
845 




B 

DORG 


COM-36* 
♦-3* 




05668 


14 


05103 


000-3 


05 
05 


855 
865 


« ROUTINE 


FOR E,F, AND I TYPE* 
INOUT, 3, 10* 




C568C 
05692 


46 
31 


05764 
05102 


01200 
05104 


05 
05 


875 

885 




BE 
TR 


TMBMWC* 

INOUT-1, IN0UTS1* 




05704 
05716 


14 
47 


05103 
05668 


OOOKO 
01300 


05 
05 


895 
905 


NUM 


C« 

BL 


INOUT, 20, 10* 
*-48* 




05728 
05740 


46 
31 


05764 
05102 


01100 
C5104 


05 
05 


915 
925 




BH 
TR 


*636* 

INOUT-1, IN0UT61* 




05752 
05764 


16 
14 


05925 
03246 


CC0L2 
CCORR 


05 
05 


935 
945 


TMBMWC 


TFH 

CM 


SETFLGfcl,32, 10* 
BRNCHf.2,99, 1011* 




05776 
05788 


16 
47 


03246 
05980 


OOORR 
C12G0 


05 
05 


95 5 
9*5 




TFM 

BNE 


BRNCH£2,99, 1011* 

. EFTYPIr* 




05800 
05312 


24 

46 


C5823 
05912 


05103 
C11P0 


05 
05 


975 
985 


ITYPER 


C 

BH 


*£23 » INOUT* 
SETFLG-12,70,10* 




05824 
05836 


31 

25 


C0C56 
00060 


00057 
05103 


05 
06 


99 5 
005 




TR 
TB 


FAC-4, FAC-3* 
FAC, INOUT * 




C5848 
C586C 


31 
43 


C5102 

05880 


05104 

0C056 


06 
06 


015 
025 




TK 

BD 


INCUT-1, INOUT til* 
FIL, FAC-4* 




05872 
C588C 


49 


05800 


cccco 


C6 
06 


035 
045 




R 

rc.RG 


I TYPER* 
*-3* 




05880 
05892 


39 
16 


06449 

00060 


C01G0 
0R9 99 


06 
06 


055 
065 


FIL 


WATY 
TFH 


INERH* 
FAC, 9999, 8* 




059C4 
05912 


49 


05800 


ccoco 


06 
C6 


075 

08 5 




B 

DORG 


ITYPER* 
*-3* 







LCCTN 


op 


P/L 


Q 


PG 


LN 


LABEL 


MNEM 
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PAGE 12 f\ 


05912 


32 


00057 


0C000 


06 


095 




SF 


FAC-3* 




U 3 7 A H 

05936 


-> A 

44 


nnfiA.fi 

v» \J \J O vi 

06084 


r n p n n 
03363 


06 


J. \J *J 

115 


SETFLG 


SF 
BNF 


FAC* 

EXPFD,ITYPEX* 




U -J v*» o 
05956 








Oft 

06 


1 ?5 
135 




B 

D0RG 


COM* 
♦-3* 




05956 


44 


06372 


03367 


pa 
06 


1 4*5 
155 


* E AND F TYPE ROUTINES* 
DT BNF SE,SEY* 




nCQAil 

0598C 


■a i 

J X 

45 


U3 IUa 

06252 


U 31 UH 

05103 


PA 

u o 
06 


lO J 

175 


M 

tr 1 Yrt 


TR 


IN0UT-1.IN0UT&1* 

U * 1 NUU 1 T 




U~ W a 

06004 


"3 A 
A O 

44 


UDZ a 1 

06028 


03367 


PA 
u o 

06 


1 R*> 

ID J 

195 


DONE 


TF 

niir 

oNr 


SETfiltSETFLGfil* 

m. C O A C C V -*• 




n. A fi 1 A 

06028 


5 d 

A A 

24 


06051 


n 9 r n 

U3^3U 

05103 


PA 

06 


215 




S 
C 


EX, BRNCHS6* 

*u£Jl 1NUU 1 ♦ 




rs a n a n 
06052 


H 1 

33 


n a i n q 

UO lUo 

03363 


00000 


PA 
U O 

06 


A A D 

235 




BNE 
Cr 


EXPFD£24,45,10* 
1 1 Yrt at 


\ 


UoUOH 

06076 


^ i 

j l 

49 


05340 


U D 1 UH 

OCOOO 


PA 
UO 

06 


da*; 

AH J 

255 




TR 
a 


IN0UT-1,IN0UT£1* 

CVDI Y + 

CArLlvT 




pirt OA 

C6084 


32 


00059 


00000 


PA 
U O 

06 


OAC 

275 


bXrrU 


DORG 
Sr 


*-3* 

r «r_l + 




n a no a 
06108 


D 1 
A 1 

26 


n "a. i a c: 
00070 


uuuou 
03365 


PA 
UO 

06 


to J 

295 




A 

X c 
1 r 


EX.FAC* 

Tcir_Q cv+ 
1 rAL~o t cat 




Uo J. aU 

06132 


A A 
H D 

43 


fl A 1 OA 

06164 


n 1 Ann 
U1HUU 

00071 


PA 
UO 

06 


315 




BV 

BD 


FL0V* 

*t3ii f lrAL~» + 




UC I HH 

06156 


"3 A 
A O 

49 


UUUlO 

06220 


ulo I j 

00000 


PA 
UO 

06 


^d 
335 




TF 

o 

D 


TFAC .FZEREC-9* 

C CT+ 

o t I T 




nil /la 

Uc lot 
06164 


44 


06220 


00070 


PA 
UO 

06 


5H " 

355 




DORG 
DNr 


«-3* 

CCX TCAT-fli 
btl f lrAL~ot 




OA 1 "7 A 

C6188 


5 A 
A O 

49 


nr»r>"7 q 
06208 


pi ft73 
00000 


PA 

UO 1 

06 


7AC 

375 




TF 

Q 

D 


TFAC , FZEREC-9* 


— o 


O A 1 O A 

UciVo 
06196 


26 


00078 


01861 


PA 
UO 

06 


395 


FLCV 


DORG 
1 r 


*-3* 

1 r AC trlMlNto—ZT 




Uo aUo 

06220 


■a o 

3 ^ 

32 


AAA AO 
UOHH'j 

00078 


fining 
OCOOO 


PA 
UO 

06 


ap*; 
hu ~ 

415 


SET 


WATY 

Sr 


INERM* 

Tr ACT 




U O A .3 A 

06244 


•~. t 
/. o 

49 


UllUcU 
05520 


UUU i o 

CCCCO 


n a 
uo 

06 


AD 
Ha D 

435 




TF 

B 


FAC tTFAC* 
CCMT 




O A O C "5 

UC aDa 

06252 


14 


05103 


000P0 


PA 
UO 

06 


D 

455 


C 


DORG 
CM 


»-3* 

lNUUI t <Uf 1UT 




DATA/. 

06276 


A "7 
H f 

46 


06300 


n i inn 
01200 


n A 
uo 

06 


A AC 
HO" 

475 




BL 

Dt 


DE* 

_ C *} A -*• 

♦ SZht 




n A "3 O Q 
UO A O O 

06300 


-3 A 

44 


U jjOZ 

05956 


UUUlrU 

03362 


rs a 
06 


Aac 
Ho D 

495 


DTB 


SF 
BNF 


DTBX* 
DT,DTBX* 




06 3 12 
06324 


14 
46 


Uo3->4 
06360 


(innno 
UUUr o 

01200 


n a 
Uo 

06 


DUD 

515 




CM 
BE 


DIGITK6 9 TFAC 
*€36* 


. i n* » 


n £ i ~i a 

06336 
06348 


1 1 

25 


Uo JD4 
00000 


uuu— 1 
05103 


n a 

u o 

06 


t: -} c 

535 


DIGIT 


AM 
TD 


DIGIT£6,l t 10* 
, INQUT* 




n a ■a a n 
U c 5 o U 

06372 


A A 

n't 

22 


nc qa a 
UD70 a 

03365 


UjjO I 

03367 


n A 
uo 

06 


CAC 
j*r 3 

555 


SE 


BNF 
S 


M,SEY* 
EXfSEY* 




ft / IB/. 

Uo3 c4 
06392 


4 y 


/ICQ/ Q 


ULUUO 


uo 
06 


JO" 

575 




B 

DORG 


M* 

»-3* 




06392 
C6404 


14 
47 


05 103 
05992 


0C0-3 
012C0 


06 
06 


585 
595 


DE 


CM 
BNE 


IN0UT,3 t 10* 

DONE* 




06416 
06428 


44 

15 


05992 
03367 


03367 
00001 


06 
06 


605 
615 




BNF 
TDM 


D0NE»SEY* 
SEY,1* 




06440 
06447 


49 


05968 


00000 


06 
06 


625 
635 




B 

DORG 


M* 

»-4* 




IQ7 ^ 
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06 


645 


♦ VARIOUS 


FLAGS AND BINS* 


03358 








06 


655 


HTYPEX 


DS 


t FLAGS* 


C3359 








06 


665 


STOWX 


DS 


,FLAGS£1* 


C3361 








06 


675 


SIGN 


DS 


,FLAGS63* 


03362 








C6 


685 


ETYPEX 


DS 


,FLAGS£4* 


03362 








06 


695 


DTBX 


DS 


,FLAGS£4* 


03363 








06 


705 


ITYPEX 


DS 


, FLAGS65* 


03364 








06 


715 


CTYPEX 


DS 


,FLAGS66* 


C3365 








06 


725 


FTYPEX 


DS 


,FLAGS67* 


03365 








C6 


735 


EX 


DS 


,FLAGS€7* 


03367 








06 


745 


SEY 


DS 


,FLAGS£9* 


03373 








06 


755 


NUKBX 


DS 


,FLAGS£15* 


03374 








06 


765 


LASTX 


DS 


, FLAGSG16* 


03375 








06 


775 


RTPARX 


DS 


,FLAGS£17* 


03 376 








06 


785 


LTPARX 


DS 


,FLAGS£18* 


06449 




5 




06 


795 


INERM 


DAC 


5 9 ER INS* 


00078 








06 


805 


TFAC 


DS 


,78* 


05190 








06 


815 




DCRG 


IN0UT£87* 


0519C 


25 


02190 


CC4C0 


06 


825 




TD 


FAXB&2 ,400* 


05202 


2 5 


02214 


CC4C0 


06 


835 




TD 


FAXB626 ,400* 


05214 


25 


02266 


00400 


06 


845 




TD 


FAXB£78 ,400* 


05226 


25 


02278 


C04C0 


06 


855 




TD 


FAXBG90 ,400* 


05238 


49 


00000 


CCOCO 


06 


865 




B 


* 


OCCOC 








06 


875 




DEND 


* 







log 



00000* PDO FORTRAN SUBROUTINES 1 1/6 3 FREE FORM AD 
05210 A _0^39£__9J?07G 



00480 


ADCT 1 


C0450 




















00380 


ADCT2 


001 75 


0027G 


02335 

















05755 


A IN 


05585 


05775 


















04930 


ACUT 


04440 


04990 


















048CC 


B 


04680 




















00750 


BB 


C2140 


02270 


02450 
















02930 


BOX 


02900 


03840 


















03470 


BRNCH 


03200 


03220 


03220 


04250 


04260 


04270 


04290 


04400 


04420 


04500 






04540 


04550 


04900 


04980 


05080 


05220 


05280 


05300 


05370 


05 39X) 






05460 


05565 


05675 


05785 


05945 


05955 


06205 








06455 


C 


06175 




















03650 


CARD 


03270 




















05705 


COM 


05595 


05775 


05835 


06125 


06435 












04160 


COUNT 


04000 


04140 


04540 


04550 


04560 


05220 


05230 


05240 


05370 


05380 






05390 


054C0 


















03380 


CRCD 


03580 


03910 


















06585 


DE 


06465 




















04390 


DEFI 






















06535 


DIGIT 


05535 


C6505 


06525 
















06185 


DONE 


06595 


06605 


















06155 


DT 


06495 




















06495 


DTB 






















06695 


DTBX 


06435 


06495 


















05270 


D TYPE 


04430 




















01230 


DVRND 


01170 




















02670 


EMM 


02720 




















02720 


END 


02730 




















00730 


ENDD 


00260 


00500 


00640 


00830 


01060 


01690 


02060 


021 10 


02140 


02200 






02240 


02270 


02390 


02450 












-O 


00570 


ERO 


01070 


0371C 
















05460 


ERROR 


05410 




















00770 


ER9 


00700 


01200 


01630 
















01790 


ETAB 


02280 


02290 


















04520 


ETYPE 


05470 




















06735 


EX 


06205 


06285 


06295 


06555 














04280 


EXP 


04530 


04630 


04900 


05170 


05200 


05240 


05280 


05340 


05360 


05400 


06275 


EXPFD 


06115 


06225 


















05545 


EXPLK 


06255 




















01770 


FAC 


00180 


00210 


00220 


00240 


00340 


00350 


00350 


00370 


00390 


00400 






00420 


00470 


00490 


00500 


00510 


00520 


00520 


00630 


00660 


00670 






00670 


00690 


00720 


00770 


00890 


00910 


00970 


00980 


01020 


01030 






01040 


01050 


01130 


01 140 


01160 


01180 


01270 


01330 


01400 


01420 






01460 


01480 


C 1 5 1 


01520 


0156C 


01580 


01610 


01620 


01690 


01700 






02100 


02190 


02280 


02310 


02400 


02460 


02550 


02560 


02570 


02760 






02830 


02850 


03150 


04370 


04390 


04460 


04480 


046^0 


04670 


04690 






04700 


04700 


04710 


04740 


04750 


04930 


04960 


04970 


04970 


05060 






05070 


05140 


05160 


05160 


05180 


5190 


05190 


05210 


05290 


052 90 






05310 


05310 


05^55 


05615 


05615 


05625 


05665 


05695 


05715 


05795 






05795 


05805 


05815 


05995 


05995 


06005 


06025 


06065 


06095 


0610^ 






06275 


06285 


06425 
















00175 


FAD 


001 30 


00140 


00150 


00160 


00180 


00220 


00230 


00240 


00250 


00290 






00300 


00300 


00370 


00410 


00420 


00470 


02330 


02400 


02410 


02430 i 


00420 


FAD1 


00190 


00270 


00280 


002 90 


00320 


00430 


00450 


02580 






00660 


FAD2 


00490 




















02190 


FAXB 


02160 


02230 


068 2 5 


068 35 


06845 


06855 










02160 


FAXBN 






















02020 


FAX I 


01990 


02000 


02050 


02120 














0199C 


FAX I N 










































109 


— ~o~^ 



01 160 


FDV 


C1130 


C117G 


01 190 


01220 


01240 


01270 










01130 


FDVR 


01140 


02070 


02080 
















01330 


FDV1 


01280 




















06055 


FIL 


06025 




















00560 


FILL 


00510 




















0238C 


FIX 






















01930 


FIXER 


02380 




















03620 


FLAGS 


06655 


06665 


06675 


066 35 


06695 


06 705 


0*715 


06725 


06735 


06 7 ' 5 






06755 


06765 


06775 


06785 














02540 


FLOAT 






















06395 


FLOV 


06305 




















00890 


FWP 


00900 


00910 


01040 


01300 


01340 


02100 


02130 


02230 


02250 




01010 


FHP1 


C0930 


00950 


















01040 


FMP2 


00990 


01310 


01350 
















00130 


FSB 


00150 


00210 


00230 


00390 


00530 


00580 


00690 


2 540 






0534C 


F TYPE 


04510 




















01420 


FXA 






















01540 


FXO 


01510 


01570 


















01510 


FXDR 






















01610 


FXD1 


01550 




















01460 


FXM 






















01400 


FXS 






















04870 


HCHC 


04640 




















04110 


HR 


04030 




















03980 


HTYPE 






















06795 


INERK 


06055 


06405 


















05490 


INOUT 


03130 


03280 


033 50 


03400 


03590 


03680 


03710 


C3720 


03730 


03740 






04120 


04130 


04130 


05625 


05635 


05645 


05645 


05745 


05745 


0575^ 






05805 


05825 


05825 


05865 


05885 


05885 


05895 


05925 


05925 


05975 






C6005 


06015 


06015 


06165 


06165 


06175 


06215 


06245 


06245 


06455 






06535 


065p«5 


06815 
















05525 


INPUT 


043 30 




















C513C 


I TYPE 


C4410 




















04220 


LAST 


02850 


03500 


















06765 


LASTX 


03250 


03440 


3 880 


042 30 














01830 


LOG 10 






















0191C 


LCG11 






















0192C 


L0G2 






















03180 


LOOK 


02910 


02960 


30 30 


03410 


03530 


03540 


04180 


05000 


05040 


0^725 


040 10 


LOOP 


04150 




















C1780 


LTAB 


02190 


022 1C 


















0290C 


LTPAR 


03440 




















06165 


M 


06545 


065 6 5 


06625 
















0336C 


MARK 


02860 
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VJ Vj U VJ 


ni 

VJ J 


79n 

1 C VJ 




THM 

1 17PJ 


TMnilTKlSR. .7* 
1 nuu 1 ox jo 1 f ff*T 




9 S 

c 


ncoco 

UJAJ7 


U3H 1 c 


P "X 
VJ J 


7 IP 

I JU 




TD 
1 U 


I Mfll IT n S A - »— 9± 


Vj jHOO 


9 S 

c v 


PS 9 S7 


P "21 A7 1 

V JT 1 1 


PI 

VJ 


7AP 

1 *t VJ 




Tn 

1 u 


1 NflUTE 1 S4.»— 1 S* 

ItlUUIulJTf" XJT 


Vj -»H\7 O 


L Q 


U 31 jo 


pnnnn 

VUvw v 


p 1 

VJ J 


7sn 

1 J VJ 




D 

D 


RFAfif ?4i 

ixLHUuCTT 


U j J v c 








PI 

VJ J 


7AP 

1 O Vj 




uvjrw? 


w JT 




A A 


pii CO 


nil A 7 


PI 


77P 

1 f VJ 


rV LHuV. I\ 


RMF 


RFAn?9A .MARK* 


03518 


26 


03548 


03061 


03 


780 




TF 


*£30,PINFMT* 


C353C 


11 


03548 


-0005 


03 


790 




AM 


*vvl8,5* 


03542 


14 


00000 


-3298 


03 


800 




CM 


, SLASH* 


C3554 


47 


03134 


01200 


03 


810 




BNE 


READ* 


03566 


49 


03358 


CCOCC 


03 


820 




B 


SLASHE60* 


03574 








03 


830 




00RG 


»-3* 


03574 


26 


03061 


02761 


03 


840 


RTPAR 


TF 


PINFMT,B0X* 


03586 


32 


03375 


00-J0 


03 


850 




SF 


RTPARX ,10 ,910* 


/23 ' 



c 



o 



o 


LCCTN 


CP 


P/L 


G 


PG 


LN 


LABEL MNEM 
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03597 




1 




03 


860 


DC 


1,3,»* 




03598 
C361C 


44 

32 


03622 
03374 


C3373 
CC0J0 


03 
03 


870 

880 


BNF 
SF 


«£24,NUMBX* 

LASTX ,10 ,10* 




03621 
03622 


44 


1 

03194 


C3159 


03 
03 


890 
900 


DC 
BNF 


1,3,»* 
P0ST,MARK1* 




03634 
03646 


25. 
49 


03181 
03322 


03165 
CCOOO 


03 
03 


910 

920 


TD 

B 


CRCDfcll , MARK— 2* 
SLASH624* 




03654 








03 
03 


930 
940 


DORG 
» COMBINED 


*-3* 

HTYPE AND XTYPE* 




03654 
03666 


16 
33 


03821 
03358 


-3677 
000-0 


03 

03 


950 
960 


XTYPE TFM 
CF 


TF611,»£23* 
HTYPEX,, 10* 




03678 
03690 


44 
11 


03774 
03061 


03359 
000-2 


03 
03 


970 
980 


BNF 
HTYPE AM 


SKIP,STOWX* 
PINFMT,2,10* 




03702 
03714 


26 
26 


03725 
03889 


03061 
COOCO 


03 
04 


990 
000 


TF 
TF 


*£23,PINFMT* 
COUNT* 




03726 
03738 


44 
11 


03774 
03C61 


03358 
CO 0-2 


04 
04 


010 

020 


LOOP BNF 
AM 


SKIP, HTYPEX* 
PINFMT,2,10* 




03750 
03762 


44 

26 


03830 
03821 


03159 
03C61 


04 
04 


030 
040 


BNF 
TF 


HR,MARK1* 
TF£11,PINFMT* 




C3774 
03786 


44 

26 


03354 
C3316 


03159 
03128 


04 
04 


050 
060 


SKIP BNF 
TF 


XR,MARK1* 
•£30, NEXT* 




03798 
03810 


11 

26 


C3128 
00000 


CCO-2 
CCOOO 


04 
04 


070 
080 


AM 

TF TF 


NEXT, 2, 10* 
* 




03P22 
03830 


49 


03866 


COOOO 


04 
04 


090 
100 


B 

DORG 


TIEH* 
♦-3* 


CI 


03830 
03842 


26 
26 


03848 
00000 


03061 
05103 


04 
04 


110 
120 


HR TF 
TF 


«£18,PINFMT* 
,INOUT* 




C3854 
03866 


31 
12 


05102 
03889 


05104 
CCO-1 


04 
04 


130 
140 


XR TR 
T I EH SM 


IN0UT-1,IN0UT£1* 
COUNT,!, 10* 




03878 
03889 


46 


03726 


01100 


04 
04 


150 
160 


BP 

COUNT DS 


LOOP* 
,«* 




C389C 
039C2 


44 

49 


04262 
03026 


03359 
COOOO 


04 
04 


170 
180 


BNF 
B 


STOW,STOWX* 
LOOK* 












04 
04 


190 
200 


•ALL LIST INSTRUCTIONS BTM TO NUMBER* 
•UNLESS LAST IN LIST,* 




03914 


26 


03937 


03913 


04 
04 


210 

220 


* THEN BTM 
LAST TF 


TO LAST* 
NUMBER- 1 ,»-l* 




C3926 
C3938 


32 
33 


C3374 
03373 


COOOO 
0C042 


04 
04 


230 
240 


SF 

NUMBER CF 


LASTX* 
NUMBX,42* 




0395C 
03962 


44 

33 


03948 
032.50 


03250 
00000 


04 
04 


250 
260 


' BNF 
CF 


»-2,BRNCH£6* 

BRNCH66* 




C3974 
03985 


32 


03247 


oooco 


04 
04 


270 

280 


SF 

EXP DS 


BRNCH&3* 
,** 




C3986 
C3997 


32 


03249 
1 


COOCO 


04 
04 


290 
300 


SF 

DC 


8RNCH65* 
1,3, «* 




03996 
03998 


31 


03359 


03147 


04 
04 


310 
320 


SAVE DS 
TR 


,•-1* 

SIGN-2,FIXFLG* 




04C1C 


44 


05316 


C3159 


04 
04 


330 
340 


BNF INPUT, MARK1* 
•THE FOLLOWING ROUTINES PREPARE* 




G4022 


26 


04045 


C3937 


04 
04 


350 
360 


•NUMERIC DATA FOR OUTPUT* 
TF *£23,NUMBER-1* 




04034 


26 


0CC60 


00009 


04 
04 


370 

380 


TF 

» OUTPUT D 


FAC,9* 

,E,F, OR I TYPE NUMERIC* 




04C46 
04058 


16 
14 


04853 
03246 


-0056 
CCORR 


04 
04 


390 
400 


DEFI TFM 
CM 


A£ll ,FAC-4* 
BRNCH£2,99, 1011* 


















/ZV 



LCCTN 


CP 


P/L 


Q 


PG 


LH 


LABEL 


MNEM 
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C4C7C 


46 


04746 


012C0 


04 


410 




BE 


ITYPE* 




C4C82 
04094 


14 
46 


03246 
04898 


CCORM 
01200 


04 
04 


420 
430 




CM 

BE 


B RNCHE2 ,94 
DTYPE* 


,1011* 


04106 


46 


C457C 


01100 


04 
04 


440 
450 


BH ACUT* 
« STORE SIGN FOR E OR F,SAVE 


EXPONENT* 


04118 
04130 


26 
12 


03996 
03996 


00052 
CCOKC 


04 
04 


460 
470 




TF 
SM 


SAVE ,FAC-8* 
SAVE ,50 


,10* 


04142 
04154 


44 
16 


04166 
03361 


00060 
OOOKO 


04 
04 


480 
490 




BNF 
TFM 


*€24 , FAC* 
SIGN, 20, 10* 




04166 
04178 


14 
47 


03246 
04966 


COORM 
C13G0 


04 
04 


500 
510 




CM 
BL 


BRNCHS2,95, 1011* 
FTYPE* 




04190 
04202 


32 
16 


03362 
C3985 


CCOCC 
000-0 


04 
04 


520 
530 


ETYPE 


SF 
TFM 


ETYPEX* 
EXP, ,10* 




04214 

C4226 


26 
22 


03889 
C3889 


03248 
03250 


04 
04 


540 
550 




TF 

S 


COUNT, BRNCHS4* 
COUNT, BRNCH&6* 




04238 
04250 


12 

46 


03889 
03654 


000-6 
011C0 


04 
04 


560 
570 


TIE 


SM 
BP 


COUNT, 6, 10* 
XTYPE* 




04262 


44 


04310 


C3364 


04 
04 


580 
590 


* ROUTINE TO STORE DIGITS IN 
STOW BNF *648,DTYPEX* 


OUTPUT BAND* 


04274 
04286 


26 
11 


04304 
03128 


03128 
000-2 


04 
04 


600 
610 




TF 
AM 


»£30,NEXT* 
NEXT, 2, 10* 




04298 
0431C 


26 
12 


00000 
03985 


03361 
000-1 


04 
04 


620 
630 




TF 
SM 


,SIGN* 
EXP, 1,10* 




04322 
04334 


47 
15 


04514 

C0052 


C13C0 
CCOCP 


04 
04 


640 
650 




BN 
TDM 


HOHO* 

FAC-8 ,7 


,11* 


04346 
04358 


44 

33 


04426 
00053 


03364 
00000 


04 
04 


660 
670 


N50X 


BNF 
CF 


N50, DTYPEX* 
FAC-7* 


o 


04370 
04382 


44 

26 


04458 
03361 


03363 
00053 


04 
04 


680 
690 




BNF 
TF 


B ,ITYPEX* 

SIGN , FAC-7* 




04394 
04406 


31 
15 


00053 
00062 


00054 
CCOCC 


04 
04 


700 
71C 




TR 
TDM 


FAC-7 ,FAC-6* 
FAC&2* 




04418 
04426 


49 


04274 


CCOCC 


04 
04 


720 
730 




8 

DGRG 


ST0WG12* 
«-3* 




04426 
C4438 


44 

15 


04370 
00052 


00C53 
OOOON 


04 
04 


740 
750 


N50 


BNF 
TDM 


N50XS12 , FAC-7* 
FAC-8 ,5 


,11* 


04450 
04458 


49 


04358 


CCOCO 


04 
04 


7SC 
790 




8 

DORG 


N50X* 
*-3* 




04458 


44 


04382 


03365 


04 
04 


800 
810 


3 BNF N50X£24,FTYPEX* 
* INSERT ZEROS AFTER DEC. IF 


EXP SMALL* 


04470 
04482 


11 
46 


03996 
04382 


000-1 
01100 


04 
04 


820 
830 




Aft 

BP 


SAVE, 1,10* 
N50XS24* 




04494 
04506 


16 
49 


03361 
04274 


COOPO ' 
COOCO 


04 
04 


840 

850 




TFM 

B 


SIGN, 70, 10* 
ST0W612* 




04514 
04514 


44 


04662 


03363 


04 
04 


860 
870 


HOHO 


DGRG 
8NF 


«-3* 

ISETYP,ITYPEX* 





04526 
04538 


33 
16 


03363 
03361 


COOCC 
C00-3 


04 
04 


880 
890 




CF 
TFM 


ITYPEX* 
SIGN, 3, 10* 




04550 
04^62 


26 
49 


03985 
04262 


C3250 
00000 


04 
04 


900 
910 




TF 

3 


£XP,8RNCH£6* 
STOW* 




C4570 
04570 


32 


00051 


CCOCO 


C4 
04 


920 
930 


AOUT 


DORG 
SF 


«-3* 

FAC-9* 




04582 
04594 


26 
11 


G4612 
03128 


03128 
000-2 


04 
04 


940 
95 




TF 

AM 


*£30 , NEXT* 
NiEXT ,2 


,10* 


04606 
04618 


26 
31 


00000 
C0051 


CC052 
CCC53 


04 
C4 


960 
97C 




TF 

TK 


, FAC-8* 
FAC-9 , FAC-7* 
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C463C 


12 


03248 


CCC-1 


04 


980 




SM 


BRNCH&4 ,1 


,10* 




04642 


47 


04570 


C12C0 


04 


990 




BNE 


ACUT* 






04654 


49 


03026 


cooco 


05 


000 




B 


LCCK + 






04662 








05 


010 




DCRG 


*-3* 














05 


020 


• EXIT 


TO ISETYP AFTER PASS1 UF I 


TYPE 


»* 










05 


030 


♦ AND 


2ND PASS E » F, D TYPE* 






04662 


44 


03026 


C3362 


05 


040 


ISETYP 


BNF 


LCOK, ETYPEX* 














05 


050 


* TACK ON EXPONENT* 






04674 


31 


00057 


C3993 


05 


060 




TR 


F AC-3, SAVE-3* 






04686 


16 


04853 


-0055 


05 


070 




TFM 


A£ll tFAC-5* 






04698 


16 


03248 


CC0-3 


05 


080 




TFM 


BRNCHC4 1 3, 10* 






C471C 


26 


04740 


C3128 


05 


090 




TF 


*630»NEXT* 






04722 


1 1 


03128 


0C0-2 


05 


100 




AM 


NEXT, 2, 10* 






04734 


16 


00000 


C00M5 


0^ 


110 




TFM 


v 45, 10* 














05 


120 


» NOW 


ENTER 


I TYPE TO FILE AWAY 


EXPONENT* 


04746 


16 


03363 


0-OCC 


05 


130 


I TYPE 


TFM 


SIGNS2 ,0000 


t 8, 


Q IS 1000 T 


0475 8 


44 


04782 


0C060 


05 


140 




BNF 


*S24 » FAC* 






04770 


16 


03361 


OCOKO 


05 


150 




TFM 


S IGNt 20, 10* 






04782 


31 


00053 


00057 


05 


160 




TR 


FAC-7 , FAC-3* 






04 794 


16 


03985 


CCO-4 


05 


170 




TFM 


EXP f 4 f 10* 






043C6 


43 


04954 


C0053 


05 


180 




BC 


»£48 fFAC-7* 






048 1 8 


3 1 


00053 


00054 


05 


190 




TR 


FAC-7 ,FAC-6* 






C433C 


12 


03985 


CCO-l 


05 


200 




SM 


EXP, 1 , 10* 






04842 


45 


04806 


00054 


05 


210 


A 


BNR 


*-36 , FAC-6* 






04854 


26 


03889 


03248 


05 


220 




TF 


COUNT »BRNCHC4* 






04866 


12 


03889 


000-1 


05 


230 




SM 


COUNT, 1,10* 






C4878 


22 


03889 


C3985 


05 


240 




S 


COUNT , EXP* 






04890 


49 


04250 


ccoco 


05 


250 




B 


TIE* 






04898 








05 


260 




DORG 


»-3* 






0489 8 


33 


03364 


ccoco 


05 


270 


DT YPE 


CF 


DTYPEX* 






04910 


26 


03985 


C3248 


05 


280 




TF 


EXP,BRNCh£4* 






0492 2 


26 


00062 


CC06C 


05 


290 




TF 


FAC£2 ,FAC* 






04934 


43 


C4262 


03247 


05 


300 




BD 


ST0W,BRNCH£3* 






04946 


3 1 


0CO53 


00059 


05 


310 




TR 


FAC-7 ,FAC-1* 






04958 


49 


04262 


00000 


05 


320 




B 


STOW* 














05 


330 




DCRG 


*-3* 






04966 


26 


03985 


03996 


05 


340 


FTYPE 


TF 


EXP, SAVE* 






04978 


44 


05002 


C3996 


05 


350 




BNF 


*£24,SAVE* 






04 Q QC 


16 


03985 


CCO-0 


05 


360 




TFM 


EXP, , 10* 






\J ~ } V> \J c 


26 


03889 


03248 


05 


370 




TF 


COUNT , BRNCH&4* 






05014 


12 


03889 


CO 0-2 


05 


380 




SM 


COUNT, 2, 10* 






5 d 7 6 


?? 

c~ C 


03 889 


03250 


05 


390 




S 


COUNT , BRNCH66* 






05038 


22 


03889 


03985 


05 


400 




s 


COUNT, EXP* 






0505C 


47 


05082 


01300 


05 


410 




BN 


ERROR* 






0506? 


32 


03365 


CGOGO 

\j \j \j \j \j 


5 


420 




SF 


FTYPEX* 






05074 


49 


04250 


00000 


05 


430 




B 


TIE* 






05082 








05 


440 




DCRG 


*-3* 














05 


450 


* CHANGE TO E TYPE* 






05082 


16 


03250 


CCO-8 


05 


460 


ERROR 


TFM 


3RNCHS6, 8, 10* 






C5C94 


49 


C419C 


CCOOO 


05 


470 




B 


ETYPE* 






05102 








05 


430 




DORG 


»-3* 






05103 




1 




05 


490 


INCUT 


DAC 


1 ,3* 






05315 




212 




05 


500 




DS 


212* 














05 


510 


** ** FIXED FORMAT INPUT* 






05316 


26 


0C060 


01873 


05 


520 


INPUT 


TF 


FAC ,FZEREC-9* 







LGCTN 


CP 


P/L 


C 


PG 


LN 


LABEL 
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05328 


14 


03246 


OCORM 


05 


530 




CM 


8RNCHS2 


t94 


,1011* 




05340 
05352 


47 
46 


05676 
05536 


G1300 
01200 


05 
05 


540 
550 




BL 
BE 


NUM* 
DNUM* 








05364 


16 


03250 


000-6 


05 
05 


560 
570 


* A 


TYPE 
TFM 


* 

BRNCH&6 


t6 


,10* 




C5376 
05388 


22 
31 


03250 
00051 


03248 
00053 


05 
05 


580 
590 




S 

TR 


BRNCHE6 
FAC-9 


,BRNCH£4* 
, FAC-7* 






05400 
05412 


26 
33 


00060 
00059 


05103 
00000 


05 
05 


600 
610 




TF 

CF 


FAC 

FAC-1* 


, INOUT* 






05424 
05436 


31 
12 


05102 
03248 


C5104 
COO-1 


05 
05 


620 
630 




TR 
SM 


INOUT-1 
BRNCH64 


f IN0UT€1* 
tl 


,10* 




05448 
05460 


47 
49 


05388 
05504 


01200 
00000 


05 
05 


640 
650 




BNE 
B 


*-60* 
*£44* 








05468 
05468 


31 


00051 


00053 


05 
05 


660 
670 




DORG 
TR 


*-3* 
FAC-9 


, FAC-7* 






C548C 
05492 


16 

33 


00060 
0C059 


CCO-0 
OCOCO 


05 
05 


680 
690 




TFM 

CF 


FAC 

FAC-1* 


t 


,10* 




05504 
05516 


12 
47 


03250 
05468 


CCO-1 
01200 


05 
05 


700 
710 




SM 

BNE 


BRNCHE6 
*-48* 


,1 


,10* 




05528 
C5536 


49 


05632 


COOCO 


05 
05 


720 
730 




B 

DORG 


COM* 
*-3* 








05536 


31 


00051 


00052 


05 
05 


740 
750 


• D 

DNUM 


TYPE 
TR 


* 

FAC-9 


, FAC-8* 






05548 
05560 


25 
14 


00060 
05103 


051C3 
OOOPO 


05 
05 


760 
770 




TD 
CM 


FAC 
INOUT 


, INOUT* 
t70 


,10* 




05572 
05584 


46 

32 


05596 
00060 


01300 
OCOOO 


05 
05 


780 
790 




BNN 
SF 


»€24* 
FAC* 






-X 


05596 
05608 


31 
12 


05102 
03248 


051C4 
000-1 


05 
05 


800 
810 




TR 
SM 


INOUT-1 
BRNCH&4 


,IN0UT£1* 
tl 


,10* 




05620 
05632 


47 

32 


05536 
00051 


01200 
00000 


05 
05 


820 
830 


COM 


BNE 
SF 


DNUM* 
FAC-9* 








05644 
C5656 


26 
26 


05662 
COOOO 


03937 
00060 


05 
05 


840 
850 




TF 
TF 


• 618 


f NUMBER— 1* 
, FAC* 






05668 
05676 


49 


03014 


COOOO 


05 
05 


860 
870 




B 

DORG 


LCOK-12* 
*-3* 








05676 
05688 


14 
47 


03246 
05836 


OOORR 
01200 


05 
05 


880 
890 


NUM 


CM 

BNE 


BRNCH£2 
EFTYPE* 


• 99 


,1011* 




C57CC 
05712 


16 
49 


06010 
05860 


-5720 
OCOCO 


05 
05 


900 
910 




TFM 
B 


BX£6 ,INFX1* 
EFTYPEC24* 






C572C 
05720 


31 


00055 


00056 


05 
05 


920 
930 


INFX1 


DORG 
TR 


*-3* 

FAC-5 


, FAC-4* 






05732 
05744 


25 
43 


00060 
05796 


05103 
€0056 


05 
05 


940 
950 




TD 
BD 


FAC 
LGFX 


, INOUT* 
t FAC-4* 






05756 
C5764 


49 


06036 


OCOOO 


05 
05 


960 
970 




B 

DORG 


EXPA-12* 
»-3* 








05764 
05776 


43 

32 


05816 
00057 


06129 
OCOOO 


05 
05 


980 
990 


INFX2 


BD 
SF 


FIL 
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077C4 
07712 


49 


07456 


COOOO 


07 
07 


170 
180 




B 

DORG 


DO I £24* 
»-3* 






07712 
07724 


33 
49 


07655 
07632 


00000 
COOOO 


07 
07 


190 

200 


VAR 


CF 
B 


WADDRC23* 
WADDR* 






07732 
C7732 


39 


07893 


00100 


07 
07 


210 

220 




DORG 
WATY 


♦-3* 

DOIT-11* 






07744 
07756 


32 
26 


07655 
07790 


COOOO 
07490 


07 
07 


230 
240 




SF 
TF 


WADDR&23* 
*£34,DQI£58* 






07768 
07780 


12 
44 


07790 
07680 


OCO-1 
0C0C5 


07 
07 


250 
260 




SM 
BNF 


•€22,1,10* 
RETURN, 5* 






07792 
078C4 


26 
44 


07814 
07824 


C7790 
0C006 


07 
07 


270 
280 




TF 
BNF 


*£22,*-2* 
*£20,6* 






07816 
07824 


49 


07680 


COOOO 


07 
07 


290 
300 




B 

DORG 


RETURN* 
*-3* 






07824 
07836 


26 
26 


07846 
07474 


07790 
00009 


07 
07 


310 
320 




TF 
TF 


»£22,VAR£78* 
DGI£42,9* 






07848 
0786C 


34 
38 


00000 
07470 


0C1C1 
00100 


07 
07 


330 
340 




SPTY 
WNTY 


* 

D0I£38* 






07872 
07884 


12 
49 


07491 
07692 


OCOKO 
COOOO 


07 
07 


350 
360 




SH 

B 


DGI£59,20,10* 
RETURN£12* 






07901 
07902 




6 
1 




07 
07 


370 

380 




DS 
DC 


6* 

i,a* 






079C3 
07904 




1 




07 
07 


390 
400 


DOIT 


DC 
DS 


1,3* 
,*£1* 






C79C4 
07916 


43 
46 


08056 
07996 


CC459 
C0300 


07 
07 


410 
420 


EXIT 


BD 
BC3 


MG0N7-24, SKPPCH* 
LOOP* 






07928 
07940 


31 
49 


00402 
07952 


16596 
-0152 


07 
07 


430 
440 




TR 
B 


402,BUFBAS£2* 
STOPER, 152,7* 







07952 
07964 


34 
39 


COOOO 
02735 


00102 
CC1C0 


07 
07 


450 
470 


STCPER 


RCTY 
WATY 


* 

LSUBS* 






C7976 
07988 


36 
49 


00000 
00000 


CC500 
OCOOO 


07 
07 


480 
490 




RNCD 

B 


* 
* 






07995 
07996 




1 




07 
07 


500 
510 




DC 

DORG 


l,3,»-4* 
*-3* 






07996 
08008 


15 
16 


16644 
16595 


CCOOJ 
-C4C2 


07 
07 


520 
530 


LOOP 


TDM 
TFM 


BUFBAS£50,1,11* 
BUFBAS£1,402* 






08020 
08032 


38 
38 


16591 
02729 


00400 
0C400 


07 
07 


540 
550 




WNCD 
WNCD 


LOAD-2* 
LSUBS-6* 






08044 
08056 


38 
34 


07947 
00000 


00400 
CC1C2 


07 
07 


560 
570 




WNCD 
RCTY 


STOPER-5* 
* 




4 



o 
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08068 


39 


16511 


CC100 


07 


580 




WATY 


ECC* 




C808C 
08092 


26 
26 


08098 
00000 


16588 
16349 


07 
07 


590 
600 


M00N7 


TF 
TF 


»£18,FCTEND* 
t CRAM* 




08104 
08116 


26 
12 


08157 
08098 


08097 
OCOJO 


07 
07 


610 
620 




TF 
SM 


*£53,*-7* 
•-18,10,10* 




08128 
08140 


14 
46 


08098 
08092 


J7396 
C1100 


07 
07 


630 
640 




CM 

BH 


»-30,LAST£12* 
*-48* 




08152 
08164 


15 
26 


00CC8 
05564 


COOCO 
08098 


07 
07 


650 
660 




TDM 
TF 


8* 

EMM£6,M00N7£18* 




08176 
08188 


22 
34 


16205 
K0000 


16205 
20102 


07 
07 


670 
680 




S 
K 


USEDFS£49,USEDFS£49* 
20000 ,20102 ,2* 




08195 
082CC 


15 


15991 


00001 


07 
07 


685 
687 


INCREM 


OS 
TDM 


, *-4* 
TRACES1 ,1* 




08212 
08224 


39 
41 


16551 
N1000 


00100 
00000 


07 
07 


690 
700 




WATY 
NOP 


LSTM* 

51000 , ,2* 




08235 
08236 


15 


08225 


00008 


07 
07 


705 
710 


Fl 


DS 
TDM 


*** 

*-ll,8* 




08248 
08260 


38 
38 


16350 
16430 


00400 
00400 


07 
07 


740 
750 




WNCD 
WNCD 


LROUT* 
LR0UT2* 




08272 
08280 


49 


00402 


00000 


07 
07 


760 
770 




B 

DORG 


INITL* 
*-3* 




08280 
C8292 


26 
26 


08427 
08346 


16582 
16581 


07 
07 


780 
790 


SMTLU 


TF 
TF 


SMCNT,MEMCAP-1* 
SMTLUl£10,MEMCAP-2* 




08304 
08312 


49 


08336 


CCOOO 


07 
07 


300 
810 




B 

DORG 


SMTLU1* 
*-3* 




08312 
08324 


12 
12 


08426 
C8346 


000-1 
CCO-1 


07 
07 


820 
830 


SMLOOP 


SM 
SM 


SMCNT-1,1,10* 
SMTLU1£10,1,10* 




08336 
08348 


26 
44 


17223 
08380 


00009 
17221 


07 
07 


840 
850 


SMTLU1 


TF 
BNF 


C0MP,9* 
•£32,C0MP-2* 




08360 
08372 


44 
49 


08312 
08596 


17211 

00000 


07 
07 


860 
870 




BNF 

B 


SMLOOP, SYM-2* 
SMTST* 




C838C 
0838C 


44 


08428 


17219 


07 
07 


880 
890 




DORG 
BNF 


»-3* 

SMNOT, COMP-4* 




08392 
08404 


26 
15 


08426 
17219 


17222 
CCOCO 


07 
07 


900 
910 




TF 
TDM 


SMCNT-l.COMP-l* 
CCMP-4,0* 




08416 
08427 


49 


08312 


R9999 


07 
07 


920 
930 


SHCNT 


B 

DS 


SMLOOP, 99999, 7* 
t** 




08428 
08440 


45 
45 


08596 
11408 


17223 
17222 


07 
07 


940 

950 


SMNOT 


BNR 
.BNR 


SMTST,COMP* 
N0SPCE,C0MP-1* 




08452 
08464 


26 
26 


08469 
00009 


08346 
17213 


07 
07 


96 
970 




TF 
TF 


*£17,SMTLU1£10* 
9.SYM* 




08476 
08488 


44 

33 


08548 
17213 


17213 

CCOOO 


07 
07 


980 
990 




BNF 
CF 


M00N3,SYM* 
SYM* 




085CC 
08511 


15 


17214 
1 


ccpco 


08 
08 


000 
010 




TDM 

DC 


SYM£1* 




08512 
08524 


31 

26 


00089 
00088 


17204 
C8427 


08 

08 


020 
030 




TR 
TF 


89,SYM-9* 
88.SMCNT* 




08536 
08548 


27 
43 


14868 
08864 


14867 
00699 


08 
08 


040 

050 


HG0N3 


BT 

BD 


C0MG0,C0MG0-1* 
DMM, DMSWCH* 




0856C 
08*72 


14 
47 


17225 
11332 


C00K4 
01200 


08 
08 


070 
080 




CM 

BNE 


CHI, 24,10* 
PUTETA-12* 




08584 
08596 


17 

24 


11426 
17213 


0-072 
17223 


08 

08 


090 
100 


SHTST 


BTM 
C 


ERROR, 72, 8* 
SYM,C0MP* 




C8f 08 
0862C 


46 
47 


C8312 
03312 


C14G0 
012CC 


08 
08 


110 
120 




BV 

BNE 


SMLOOP* 
SMLOOP* 
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08632 


24 


17223 


17213 


08 


130 




C 


CCMP,SYM* 


08644 


46 


08312 


C14C0 


08 


140 




BV 


SMLOOP* 


08656 


31 


17215 


1C899 


08 


150 




TR 


CCMP-8,ETAC-7* 


08668 


24 


C8347 


16588 


08 


160 




C 


SMTLU l&l 1 » FCTEND* 


08680 


47 


11308 


01100 


08 


170 




BNH 


PUTETA-36* 


08692 


25 


08714 


08426 


08 


180 




TD 


*£22,SMCNT-1* 


087C4 


43 


08728 


0C2C0 


08 


190 




ED 


•624,200* 


08716 


11 


08426 


000-1 


08 


200 




AM 


SMCNT-1, 1,10* 


C8728 


16 


08782 


J61C5 


08 


210 




TFM 


*£54,USEDFS-51* 


08740 


26 


08775 


08426 


08 


220 




TF 


*£35,SMCNT-1* 


08752 


32 


08774 


OCOOO 


08 


230 




SF 


»£22* 


08764 


11 


08782 


-COOO 


08 


240 




AM 


*£18,+ 


08776 


15 


16105 


00001 


03 


250 




TDM 


USEDFS-51,1* 


08788 


15 


08427 


COOOO 


08 


260 




TDM 


SMCNT,0* 


088CC 


16 


17225 


O0OM6 


08 


270 




TFM 


CHI ,46,104 


08812 


15 


11597 


OCOOO 


08 


280 




TDM 


FXORFL* 


08824 


16 


09473 


-8844 


08 


290 




TFM 


CS0RN-1,»£20* 


08836 


49 


11344 


COOCO 


08 


300 




B 


PUTETA* 


08844 








08 


310 




DCRG 


•-3* 


08844 


15 


00697 


00001 


08 


320 




TDM 


FSTSW,1* 


08856 


49 


12582 


OCOOO 


08 


330 




B 


TFSAVE* 


08863 








08 


340 




DORG 


♦-4* 


08864 


26 


09123 


08427 


08 


350 


DMM 


TF 


DIMONT.SMCNT* 


08876 


14 


17225 


O0OK4 


08 


351 




CM 


CHI ,24 ,10* 


08888 


46 


08920 


01200 


08 


352 




BE 


• £32* 


08900 


44 


C9192 


00699 


08 


354 




BNF 


DIMC-32 ,DMSWCH* 


, 08912 


49 


09124 


CCOOO 


08 


356 




B 


D IMB6 12* i|) 


08920 








08 


358 




DCRG 


*-3* 


08920 


12 


08346 


OCO-1 


08 


360 




SM 


SMTLU1£10,1, 10* 


08932 


26 


08997 


08346 


08 


370 




TF 


DIMA£5,SMTLU1610* 


08944 


26 


09117 


C8346 


08 


380 




TF 


DIM8S5, SMTLU1S10* 


08956 


U 


09122 


000-1 


08 


390 




AM 


OIMONT-1,1, 10* 


08968 


31 


17222 


17224 


08 


400 




TR 


CHI-3,CHI-1* 


0898C 


17 


09248 


oco-o 


08 


410 




3TM 


CFXN,0,1C* 


08992 


26 


19994 


17213 


08 


420 


DIM A 


TF 


19994, SYM* 


C90C4 


31 


17222 


17224 


08 


430 




TR 


CHI-3,CHI-1* 


09016 


14 


17223 


CCO-4 


8 


440 




CM 


CHI-2,4, 10* 


09028 


46 


09224 


C12C0 


08 


450 




BE 


DIMC* 


09040 


26 


17223 


17213 


08 


460 




TF 


SYM£10,SYM* 


09052 


17 


09248 


000-0 


08 


470 




BTM 


CFXN,,10* 


09064 


23 


17223 


17213 


08 


480 




M 


SYM£10,SYM* 


09076 


32 


00096 


ccoco 


08 


490 




SF 


96* 


09088 


31 


17222 


17224 


08 


500 




TR 


CHI-3,CHI-1* 


09100 


22 


09122 


00099 


08 


510 




S 


D I MONT- 1,99* 


09112 


16 


19999 


-COCO 


08 


520 


01 MB 


TFM 


19999,* 


09123 








08 


530 


DIMCNT 


OS 


t ** 


09124 


45 


09156 


17227 


08 


540 




BNR 


*£32,CHI£2* 


09136 


15 


00699 


OCOOO 


08 


550 




TDM 


DMSWCH* 


09148 


49 


00462 


COOOO 


08 


560 




B 


BEGIN* 


09156 








08 


570 




DCRG 


*-3* 


09156 


14 


17225 


0CCK3 


08 


580 




CM 


CHI, 23, 10* 


09168 


31 


17222 


17224 


08 


590 




TR 


CHI-3,CHI-1* 


0918C 


46 


09204 


C12C0 


08 


600 




BE 


*£24* 


09192 


17 


11426 


0-079 


08 


610 




BTM 


ERROR, 79, 8* 


09204 


4 5 


09602 


17227 


08 


620 




BNR 


CS,CHI£2* f\ 
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09?16 


49 


09192 


00000 


08 


630 




B 


*-24* 


0922A 








08 


640 




DGRG 


*-3* 


09224 


22 


09122 


17213 


08 


650 


DIMC 


S 


DIM0NT-1,SYM* 


09236 


49 


C9112 


ccocc 


08 


660 




B 


DIMB* 


09248 


16 


17209 


0-000 


08 


670 


CFXN 


TFM 


SYM-4, ,8* 


09260 


16 


09290 


J7209 


08 


680 




TFM 


*&30, SYM-4* 


09272 


11 


09290 


GOO-l 


08 


690 




AM 


♦£18,1,10* 


C9284 


25 


1721C 


17225 


08 


700 




TD 


SYM-3, CHI* 


09296 


31 


17222 


17224 


08 


710 




TR 


CHI-3,CHI-1* 


C93C8 


45 


09328 


17225 


08 


720 




BNR 


*£20,CHI* 


09320 


49 


09376 


CCOOO 


08 


7 30 




B 


*S56* 


C9328 








08 


740 




DGRG 


»-3* 


09328 


14 


17225 


CCO-0 


08 


750 




CM 


CHI, ,10* 


09340 


46 


09296 


01200 


08 


760 




BE 


«-44* 


C9352 


14 


17225 


C0009 


08 


770 




CM 


CHI, 69, 10* 


09364 


46 


09272 


01100 


08 


780 




BH 


CFXN£24* 


09376 


14 


09290 


J7213 


08 


790 




CM 


CFXNS42,SYM* 


09388 


46 


10462 


01100 


08 


800 




BH 


EXCESS* 


094CC 


26 


0942 3 


C9290 


08 


810 




TF 


*£23,CFXN£42* 


09412 


26 


17213 


CCOCO 


08 


820 




TF 


SYM* 


09424 


32 


17210 


OCOOC 


08 


830 




SF 


SYM-3* 


09436 


44 


09450 


09246 


08 


840 




BNF 


»£14,CFXN-2* 


09448 


42 


CCOOO 


00000 


08 


850 




BB 


* 


09450 








08 


860 




DGRG 


*-9* 


0945C 


26 


09473 


09247 


08 


870 




TF 


CS0RN-1,CFXN-1* 


09462 


49 


08280 


cooco 


08 


880 




B 


SMTLU* 


09474 


14 


17225 


C00-3 


08 


890 


CSCRN 


CM 


CHI, 3, 10* 


09486 


15 


11597 


oocoo 


08 


900 




TDM 


FXGRFL* 


09498 


46 


09850 


C12C0 


08 


910 




BE 


NUMBER* 


C951C 


14 


17225 


CCCPO 


08 


920 




CM 


CHI, 70, 10* 


09522 


46 


09850 


01300 


08 


930 




8NL 


NUMBER* 


09534 


14 


17225 


C00M8 


08 


940 




CM 


CHI, 48, 10* 


09546 


46 


09566 


01100 


08 


950 




BH 


*€20* 


09558 


49 


09602 


cocco 


08 


960 




B 


CS* 


09566 








08 


970 




DGRG 


*-3* 


09566 


14 


17225 


CC0N5 


08 


980 




CM 


CHI, 55, 10* 


09578 


46 


09602 


C11C0 


08 


990 




BH 


CS* 


09590 


15 


11597 


0C002 


09 


000 




TDM 


FXGRFL, 2* 


09602 


16 


09632 


J72C5 


09 


01G 


CS 


TFM 


SALT66,SYM-8* 


09614 


26 


17214 


11489 


09 


020 




TF 


SYM£1,ZER09* 


09626 


26 


17205 


17225 


09 


030 


SALT 


TF 


SYM-8.CHI* 


C9638 


31 


17222 


17224 


09 


040 




TR 


CHI-3,CHI-1* 


09650 


11 


C9632 


CCO-2 


09 


050 




AM 


SALT£6,2, 10* 


09662 


14 


17225 


00 OHO 


09 


060 




CM 


CHI,40,1C* 


C9674 


46 


10530 


C1300 


09 


070 




8NL 


3 YMCHK * 


09686 


33 


17212 


CCOOO 


09 


080 




CF 


SYM-1* 


09698 


33 


17210 


OCOCO 


09 


090 




CF 


SYM-3* 


09710 


33 


17208 


CCOCC 


09 


100 




CF 


SYM-5* 


09722 


33 


17206 


CCOCO 


09 


110 




CF 


SYM-7* 


09734 


49 


08280 


CCOOO 


09 


120 




B 


SMTLU* 


09742 








09 


13G 




DCRG 


*-3* 


C9742 


14 


10008 


J72LC 


09 


14C 


FXNUNB 


CF 


NUM31&6 , SYM-3* 


09754 


1* 


11597 


CC0C2 


09 


150 




TDM 


FXGRFL, 2* 


C9766 


46 


10462 


C11CC 


C9 


16C 




BH 


EXCESS* 


09778 


16 


172C5 


C-OCO 


09 


170 




TFM 


SYM-8 , ,8* 
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09790 


26 


09813 


10008 


09 


180 




TF 


•£23,NUMB1£6* 




09802 


26 


17214 


00000 


09 


190 




TF 


SYM£1* 




09T14 


32 


17213 


CCOOO 


09 


200 




SF 


SYM* 




C9S26 


32 


17210 


GOOCO 


09 


210 




SF 


SYM-3* 




09838 


49 


08280 


CCOOO 


09 


220 




B 


SMTLU* 




09850 


26 


17213 


08235 


09 


230 


NUMBER 


TF 


SYM ,F1* 




09862 


16 


09849 


J0118 


09 


240 




TFM 


NUMBER-1, NUMB3* 




09874 


16 


10008 


J7206 


09 


250 




TFM 


NUMB1£6 , SYM- 74 




09886 


14 


17225 


COOPO 


09 


260 




CM 


CHI, 70, 10* 




09898 


47 


09930 


01200 


09 


270 




BNE 


*£32* 




09910 


31 


17224 


17226 


09 


280 




TR 


CHI-1,CHI£1* 




09922 


49 


09886 


CCOOO 


09 


290 




B 


*-36* 




09930 








09 


300 




DCRG 


»-3* 




09930 


14 


17225 


000-3 


09 


310 


NUMB 


CM 


CHI, 3, 10* 




09942 


46 


10058 


01200 


09 


320 




BE 


FLNUMB* 




09954 


14 


17225 


00009 


09 


330 




CM 


CHI,69,10* 




09966 


47 


09742 


01100 


09 


340 




BNH 


FXNUMB* 




09978 


14 


10008 


J7213 


09 


350 




CM 


NUMB 1£6, SYM* 




09990 


46 


10014 


01100 


09 


360 




BH 


NUMB1&12* 




10002 


25 


COCOO 


17225 


09 


370 


NUMB1 


TD 


,CHI* 




10014 


31 


17224 


17226 


09 


380 




TR 


CHI-1,CHI£1* 




10026 


11 


10008 


-C001 


09 


390 




AM 


NUMB 1 £6,1* 




1C038 


Jl 


17205 


000-1 


09 


400 


NUMBS 


AM 


SYM-8 ,1 


,010* 


1C05C 


49 


09930 
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AFSB 
AFXP 


14460 






















10830 
00854 


ASCAN 
AVOID 


C112C 
01050 


01150 


03940 


















00310 
0008C 


BA 

3EGIN 


C0160 
00220 


00290 
002 30 


00330 
00240 


15770 

002 50 


15780 

00600 


15790 
01340 


15800 
01566 


15810 
02064 


15820 
02340 


15830 

03220 




05860 


8EREC 


04430 
05360 


0490C 

05580 


05010 


05190 


05510 


05620 


05670 


08560 








14150 
0120C 


BGO 
BLNK1 


00960 
00980 


009*0 
01010 


2260 
01020 


02260 
01040 


05660 


05.660 












01030 
13550 


BLNK2 
RL1 


C121C 
13670 






















13660 
00390 


BL 2 
BRC 


13540 
00340 


02060 


02330 


03210 


03210 














13020 
12440 


C 

CADD 


12520 
11740 


12580 
12810 


14440 
12840 


14680 


14710 














12540 
12510 


CADCB 
CADCC 


12490 
12550 


127 C C 


12940 


















1257C 
126C0 


CADDD 
CADDH 


1254C 
12460 






















12500 
12660 


CADD I 
CADD J 


12640 
12600 


12680 
12610 


12960 
12710 


















12700 
1273C 


CADDK 
CAODL 


12470 
12700 






















17670 
17440 


CCC 
CCD 


17150 
17050 


17160 
17060 


17180 
17070 


17200 
17080 


17220 
17090 


17260 
17100 


17100 


17130 


17140 


17160 




12890 
1446C 


CDIV 
CEXP 


11780 
11820 


12870 
1553C 




















14640 
14730 


CEXPA 
CEXPB 


14520 
14600 


14620 
14640 




















14700 
1467C 


CEXPC 
CEXPD 


14650 
14730 


14790 




















14830 
14950 


CFCT 
CFCTA 


1170C 
14860 


15060 
14970 


14990 


















15010 
15080 


CFCTB 
CFCTC 


14870 
14950 






















08670 


CFXN 


0063C 
06550 


019 20 
08410 


C2660 
08470 


02780 
08780 


03460 
08790 


04600 
08810 


04770 
08840 


04980 
08870 


05200 
10530 


05780 




C330C 


CHCHI 


02500 
32 50 


02580 
03470 


02 640 
03470 


02710 


02710 


02730 


02750 


02750 


02770 


03070 




16690 


CHI 


00170 
00590 


00180 
00610 


00210 
00780 


00320 
00970 


00380 
01060 


00510 
01200 


00520 
01200 


00520 
01240 


00550 
01270 


00570 
01290 








01310 
01530 


01330 
01550 


01334 
01574 


01350 
01591 


01370 
01595 


01420 
01595 


01440 
01600 


01460 
01630 


01480 
01630 


01510 
01640 








01660 
01830 


01660 
01830 


01700 
0U90 


01700 
01990 


01740 

02020 


01750 
02030 


01750 
2030 


01800 
02050 


01300 
02120 


01810 
02200 








02310 
02570 


0231C 
02600 


02320 
02630 


2 360 
02650 


02380 
02650 


02400 
02.720 


02490 
0274C 


02510 
02740 


02530 
G2760 


02550 
02990 








03060 
03700 


03240 
03720 


03270 
03820 


03270 
03820 


03300 
03850 


03480 
03850 


03500 
03890 


03550 
03890 


03550 
04060 


03700 
04080 








04090 
04730 


04090 
04740 


04100 
04810 


04340 
04940 


04340 
04940 


04400 
04950 


04590 
05060 


04590 
05060 


04630 
05100 


047 30 
05140 








05140 
08270 


05750 
083*1 


0*750 

08400 


05 760 

3400 


06450 
08430 


06450 
8430 


06510 
8440 


06510 
08500 


06580 

08500 


08070 
3540 




170 







08580 


08590 


08590 


08620 


08700 


08710 


08710 


08720 


08750 


08770 








08890 


08920 


08940 


08980 


09030 


09040 


09040 


09060 


09260 


09280 








09280 


09310 


09330 


09370 


09380 


09380 


09490 


09490 


09500 


09560 








096U0 


09630 


09670 


09670 


09680 


09690 


09690 


09700 


09730 


09740 








09740 


10090 


10120 


10120 


10420 


10420 


10430 


10470 


10490 


10520 








10520 


10600 


10870 


11150 


11190 


11220 


11240 


11270 


11290 


11310 








11330 


11350 


11370 


11470 


11470 


1 1500 


1 1520 


1 ICO/"* 

11520 


1 1630 


1 ^ c\ c\ c\ 

1209U 








12090 


13170 


13190 


13220 


14350 


14360 


14370 


14370 


14400 


14850 








14850 


17310 




















17310 


CHIGO 


17120 


17350 




















1298C 


CMDA 


12910 


12920 




















1294C 


CMDB 


12980 


13000 




















09600 


CMPAR 


09520 






















12860 


CMULT 


11800 






















12260 


CODA 


12220 




















\ 


1240C 


CODC 


12280 






















12370 


CCDC 


12310 






















1220C 


CODE 


10950 


12450 


12780 


12900 


14470 


14830 












1236C 


CODF 


12420 






















14190 


COMGO 


05470 


05470 


08040 


08040 
















03850 


COMM 


01390 




















1 


1667C 


COMP 


07840 


07850 


07890 


07900 


07910 


07940 


07950 


08100 


08130 


08150 




01591 


CONIO 


02060 






















16210 


CRAM 


05440 


05460 


06050 


06080 


06595 


07600 


14170 










09010 


CS 


03830 


03870 


08620 


08960 


08990 


10450 












0889C 


CSORN 


02090 


02970 


03300 


04670 


04760 


05150 


06790 


08290 


08870 


10180 








11180 


13080 




















12770 


csua 


11760 






















12830 


CSUBA 


12790 






















03810 


DIM 


01320 






















08420 


DIMA 


08370 




















— o 


08520 


D 1MB 


03356 


08380 


08660 
















08650 


DIMC 


08354 


08450 




















0835C 


DMM 


08050 






















04590 


DO 


01180 






















06870 


DO I 


07100 


07150 


07160 


07170 


07240 


07320 


07340 


07350 








C7400 


DCIT 


06920 


06930 


06940 


06950 


06980 


07010 


07020 


07040 


07070 


07220 




04920 


DS ADO 


04700 


04710 


04720 


04820 


04860 


04870 










I 


14030 


DUMP 


06680 


06690 


06710 


13910 














I 


02820 


EFIND 


02540 


02620 


02700 


03450 
















04730 


ELL 


04810 






















04870 


EMM 


04862 


05970 


05980 


07660 
















06660 


END 


C158C 






















15600 


ENDSR 


06630 




















i 


0663C 


ENDX 


06420 


06660 




















1652C 


EGC 


07580 




















) 


15770 


EQSW 


10960 


11010 


11210 


15180 


15350 














10990 


EQ2 


11040 






















11070 


EQ3 


10990 






















UUO 


E04 


11000 






















10740 


ERROR 


01260 
09780 


01910 
10720 


02470 
10740 


02980 
10940 


03310 
12360 


04020 


04120 


04660 


08090 


08610 




10940 


ERl 


01540 


01592 


11390 


11610 
















0402C 


ER6 


09830 






















04120 


ER7 


11640 






















1022C 


ETAC 


08150 


10000 


1063C 


















10200 


ETAN 


10000 
10640 


10010 
10670 


10020 


10080 


10140 


10170 


10270 


10280 


10330 


10630 




07410 


EXIT 


06890 


07030 




















05920 


EXREC 


05700 










































11/ 


o 



1592G FAC 04450 04470 04500 11930 12140 14560 14920 15320 
15930 FAD 12170 



10550 
1601C 



FAGR 
FAX8N 



10390 10440 10500 10510 10590 



15620 



FAXI 
FAX IN 



15530 
15540 





15130 


FIX 


12410 






















15900 


FIX1 


16140 


16140 




















16140 


FIX2 


15130 


15210 




















15160 


FLOAT 


12350 






















G380C 


FfcTSP 


02290 






















1519C 


FOF 


10960 


11020 




















17420 


FRECK 


17240 






















02310 


FSCAN 


02370 


02390 


02430 


02860 


03020 


03050 


03280 


03350 


03400 


03430 








03780 






















15780 


FSTSW 


03920 


08320 


11170 


11260 


11420 


11460 


11560 


11830 








16020 


FXA 
























1606C 


FXD 
























16C7C 


FXDR 
























15510 


FXEXP 


12330 






















16040 


FXM 
























16030 


FXS 
























07705 


Fl 


09230 






















05750 


GETNO 


05350 


05570 


05690 


05830 












1 




06360 


GGG 


04970 


















\ 




14270 


GCER 


14200 


14210 


14240 


















1032C 


GGRE 


10110 


10290 




















04940 


GOTO 


01300 






















03460 


HCLL 


02520 






















03670 


HCLL1 


03540 


03610 




















1573C 


HTYPE 


03530 




















03890 


IF 


01280 


09890 




















04050 


IFSS 


04010 






















16620 


IMAGE 


06720 


06760 


14200 


14230 


14240 


14250 


14270 










0174C 


INCHK 


01500 






















00020 


INITL 


07760 


















i 




1214C 


INST1 


04180 


04190 


04210 


04250 


04270 


06390 


06460 


06520 


06560 


06570 








06590 


06595 


10970 


10990 


11070 


11070 


11080 


11110 


11110 


11120 








11840 


11870 


11880 


11890 


11900 


11930 


1202Q 


12030 


12040 


12070 








17080 


122C0 


12260 


12280 


12310 


12460 


12500 


12540 


12910 


13330 








14530 


14540 


14550 


14560 


14580 


14590 


14600 


14640 


14650 


14660 








14730 


14840 


14880 


14910 


14970 


15010 


15030 


15040 


15090 


15190 








15200 


15220 


15270 


15300 


15305 


15310 


15310 


15320 


15380 






12X70 


INST2 


01670 


01710 


01770 


01840 


01870 


01880 


01940 


01950 


01980 


02110 








02130 


04200 


10980 


11000 


11040 


11080 


11120 


12210 


12240 


12270 








12470 


12490 


12500 


12600 


12610 


12700 


12790 


12800 


12830 


12920 








12940 


1298C 


13020 


13360 


14500 


14520 


14550 


14740 


14750 


14780 i 








14840 


14860 


14870 


14920 


14950 


15040 


15200 


15210 


15280 






01880 


IC1 


01680 


01720 


01780 


01850 
















01990 


IC2 


01594 


01990 


02040 


02160 
















0124C 


ISITF 


01090 






















C480C 


KAY 


04720 






















C521C 


KK 


04130 


04330 


04360 


043 80 


04390 


05030 


05090 


05290 


05330 






15550 


L 


00040 


00050 


00090 


00352 


00700 


00750 


03180 


04290 


04860 


05110 








05120 


05130 


05400 


05420 


05480 


05650 


05720 


06770 


13570 


13700 








13710 


1397C 


14060 


















1698C 


LAST 


C7630 


17020 


17340 


17680 
















16590 


LOAD 


00050 


07540 


14050 


14060 
















1557C 


LCDER 


00760 


05630 


05640 


14180 


17640 














0752C 


LOOP 


07420 










































I7Z 



16350 
16530 


LROUT 
LSTM 


07740 

07690 




















02190 
15710 


LSUBS 
LTPAR 


02180 
02420 


07470 


07550 





— _ 













0805C 
0759C 


MOON 3 
MG0N7 


' 7980 
07410 


07660 


17330 














_ : . 


17400 
10590 


NO 

NCMB 


17060 
10080 


17070 
10250 


17080 
10410 


17090 
10540 


17110 
10550 


17280 










09310 
09370 


NUMB 
NUMB 1 


09410 
09140 


09180 


09250 


09 350 


09360 


09390 


09430 








09560 
09480 


NUMB 2 
NUMB 3 


09430 
09240 


09460 

09580 


09530 


09540 


09550 


09570 










0940C 
10835 


NUMB 5 
0MM1 


09620 
00020 


03910 


10830 


10880 


10900 


10920 


11600 


11650 


11670 


11690 






11710 
13160 


117 30 
13240 


11750 
13260 


11770 

13280 


11790 
14360 


11810 


12120 


12320 


12340 


12400 


14440 


OP 


12370 
14510 


12440 
15510 


12630 


12660 


12740 


12770 


12860 


12890 


12950 


14460 


16550 


OUT 


04050 
04690 


04080 
04820 


04130 
048 30 


04280 
04840 


04290 
04970 


04320 
04990 


04330 
05360 


04360 
05370 


04380 
05480 


04680 
05490 






05580 
06100 


05600 
06110 


05700 
06110 


5710 
06120 


05720 
06120 


05960 
06130 


05990 
06130 


06090 
06140 


06090 
06150 


06100 
06160 






06170 
13370 


06660 
13380 


10050 
13390 


10070 
13400 


10110 
13420 


10240 
13420 


10250 
13450 


10230 
13460 


10290 
13470 


10370 
13500 






13510 
13580 


13510 
13600 


13530 
13610 


13^30 
13610 


13540 
13620 


13550 
13660 


13550 
13700 


13560 
13710 


13560 
13720 


13570 
13720 






13730 
13810 


13730 
1393C 


13740 
13950 


13740 
13960 


13760 
13960 


13770 
17360 


13780 


13790 


13800 


13810 


1654C 
06390 


OVERL 
PAUSE 


00130 
01620 




















10670 
16640 


PETA 
PHI 


10150 
00400 


00780 


00790 


00820 


00840 


00900 


00900 


00970 


00990 


oioooft 






01000 
01160 


01030 
01230 


01060 
02200 


01070 

02230 


01070 
02290 


01080 
02880 


01100 
02890 


01100 
03120 


OHIO 
03130 


01140 V 

03150 






03170 
05120 


03180 
05130 


03190 
05170 


03190 
05180 


03200 
10850 


03900 
1086C 


05030 
13930 


05040 
13940 


05080 
13940 


05110 
17660 


09750 
01700 


PLUS 
PRINT 


09610 
01610 


09620 


09660 


09680 


09710 


09720 


09720 


09730 




. : , i 


0299C 
13950 


PUNCT 
PUTTD 


02480 
13900 


03380 
13980 


14030 
















13850 


PUTX 


04410 
13430 


04850 
13520 


05000 
13590 


05380 
13630 


05500 
13640 


05610 
13690 


05730 
13750 


06180 
13780 


06670 
13820 


13410 

13830 ! 


13330 


PUT1 


13860 
04240 


13890 
042 40 


13920 
06600 


154 10 

06600 


15430 
11940 


11940 


13030 


13030 


14570 


14570 


13360 


PUT2 


14610 
01970 


1461C 
01970 


14/60 

02140 


14760 
02140 


15050 
04260 


15050 
04260 


15250 
13050 


15250 
13050 


15420 
13330 


15420 
13340 


10UC 


QUERY 


13360 
10300 


14770 

10380 


14770 

10650 


15260 


15260 


15290 


15290 








15660 
15650 


RACD 
RATY 


01840 
01870 




















01840 
03320 


RDCD 
RPFMT 


01760 
02680 


03370 


03410 


03510 














03390 
03370 


RPT1 
RPT2 


0332C 
03390 




















1572C 
1608C 


RTPAR 
RVSGN 


03080 
16180 


16180 


















10870 
09030 


S 

SALT 


11180 
09010 


H4eo 

09050 


12130 

09860 


13200 
098 70 


13300 


14380 










0404C 
1575C 


SENSE 
SLASH 


04000 
C3010 




















/73 



0073C SLCT 0C680 OC-l^C 



0793C 


SPCNT 


0U030 


0C09C 


00760 


01930 


04690 


04700 


04780 


04800 


04890 


04 990 








05170 
07900 


'05210 
08030 


05370 

08180 


5410 

03200 


05490 
08220 


05 6 30 
08260 


05710 
08350 


06820 
10010 


07780 
10460 


07820 
10640 




07940 
0778C 


SPNOT 
SMTLU 


07890 
068C0 


OtiSfiC 


0912G 


09220 


09810 


09330 


13090 










08100 
1173C 


SMTST 
SS 


07870 
1C9 30 


0794C 
11440 


09940 


09970 
















11150 
1095C 


SSA 
SSB 


10870 
10890 


113FG 




















1525C 
11650 


SSBCD 
SSC 


15170 
11620 


15330 
13180 




















12090 
11600 


SSCA 
SSCA1 


11660 
11280 






















12000 
11420 


SSCB 
SS0C1 


11680 
11230 






















1177C 
11810 


SSI 
SS2 


11300 
11540 


11510 




















1150C 
11410 


SS3 
SS4 


11320 
11250 


13230 




















11560 
11830 


SS5 
SS6 


11340 
11360 


11930 




















06450 
14090 


STOP 
SUB I 


01470 
13370 






















10675 
15700 


SUBN 
SWC 


C0030 
02180 


10320 


103 30 


10340 
















02470 
16660 


SWLP 
SYM 


02270 
02630 


02410 
02790 


02440 
C280C 


02920 


02930 


02940 


02960 


03330 


03340 


03650 








03660 
07860 


037 50 
07970 


03960 
C7930 


03970 
C7990 


03980 
08000 


03990 
08020 


04000 
08100 


04780 
09130 


06560 
08420 


06780 
08460 








08460 
09C1C 


03480 
09020 


08480 
09030 


08650 
09080 


08670 
09090 


03680 
09100 


08700 
09110 


08790 
09140 


08820 
09170 


08830 
09190 








0.92C0 
09770 


C9210 
09300 


C9230 
09810 


09250 
09820 


09350 
09860 


09400 
10540 


09440 
13070 


09480 


09540 


09750 




14810 
04170 


TEMP 
TEN 


14530 
11720 


14580 


14740 


14780 


15190 


15 300 












16090 
04410 


TFrAC 
THAT 


0419C 
04140 


12200 


14590 


15030 
















02650 
17660 


TIER 
TCP 


02560 
10350 


02590 
13480 


026 LO 


















15350 
15610 


TRACE 
TRACX 


G133o 
15480 


01562 


07637 


















0287C 


TRANS 


02280 
02890 


02420 
02930 


02450 
03010 


025 30 
03030 


02690 
03080 


02300 
03100 


02810 
03320 


02830 
03400 


02840 
03420 


02850 
03530 




17100 


TRY 


03570 
17290 


03600 


03640 


03660 


03680 


03720 


03730 


03770 








15210 
00340 


TWAGS 
TYST 


15130 
00385 


1516C 
10765 




















07190 
09510 


VAR 

VAR8R 


07070 
09470 


07130 

0953Q 


07310 


















15670 
07100 


WACD 
WADDR 


01670 
06960 


06990 


07050 


07190 


07200 


07230 












15690 
0345C 


WATY 
WIDTH 


01710 

02300 


0294 


03 3 70 


















07140 
1574C 


WNUWB 
XTYPE 


06950 
03600 


0698C 


07C40 


















10785 
15410 


ZER09 
ZOT 


00150 
11090 


0902C 
11130 


15360 


15390 
















01800 
05350 


ACCEPT 
BEGPRO 


01520 
01336 






















174 ' 



0096C BLANKS 00620 00300 01596. 

1611C BRINST 00750 02250 03140 05420 05430 05450 05650 14150 14160 



16600 



15640 



BUFEAS 



06770 
14030 



06820 06830 06840 06850 07430 07520 07530 13900 13950 



10390 COLECT 10060 10230 10560 

130 3 COMMON 12510 12570 13040 14670 14700 14900 14930 14960 15080 15090 



omplt 



15110 
02130 



05030 
03240 



COMPUT 
CONFMT 



04960 
02330 



05100 
05950 



06210 10770 



06380 
06510 



CONTIN 
CONTRL 



01380 
01400 



06460 06470 



08530 D I MONT 08350 08390 08510 08650 
15800 DMSWCH 03810 03860 08050 08354 08550 



06230 
15820 



OORCRD 
DOSHCH 



05960 
00660 



05950 



04340 
05530 



ELEVEN 
ENDPRO 



00980 
01554 



04150 04400 



10790 
09780 



ERRMSS 
EXCESS 



10740 
08800 



10750 
09160 



09760 



0569C 
16580 



EXPRCC 
FCTEND 



01574 
07590 



08160 17040 17170 17190 17250 17270 



03120 
15810 



FINISH 
FLAGSW 



03090 
10150 



10680 11410 11430 11530 12480 12620 12670 12730 12930 



0943C 



FLNUMB 



12990 
09320 



14330 14410 14890 14980 15020 15100 



15910 
16160 



FL0AT1 
FLCAT2 



16160 
15160 



16160 



06980 
02200 



FLPCON 
FORMAT 



06940 
00950 



00740 
00840 



FRMAT1 
FRMAT2 



00910 
00740 



00770 00830 00860 00880 00890 



1586C 
0914C 



FRMSCT 
FXNUMB 



00940 
09340 



10895 
06950 



FXCRFL 
FXPCON 



08280 
07080 



03900 09000 09150 09790 10140 15520 



06280 
03640 



GOTCRC 
HC0NT1 



05040 
03560 



03710 
03700 



HCCNT2 
HC0NT3 



03540 
03760 



03670 



03750 
04450 



HC0NT4 
I FRCFL 



03610 
04280 



03710 



04500 
04560 



IFRCFX 
IFSSRC 



04320 
04050 



15830 
07685 



IFSWCH 
INCREM 



00150 
01020 



03930 09880 11620 



02180 
1 644Q 



07070 
0701C 



IOINST 
LR0UT2 



01980 
07750 



16570 MEMCAP 04890 06850 06870 06880 07780 07790 17030 17040 
10720 NOSPCE 04866 07950 



NOTACC 
NOTCQN 



07010 
06930 



09230 
01600 



NUMBER 
Q UTCHK 



08910 
01490 



08930 09240 09460 09470 



02810 
10630 



PRETRN 
PU TE TA 



02700 
08080 



08170 08300 



1017C PUTETB 00400 02100 02150 04170 10690 10860 11850 12000 12010 12220 
12230 13060 13110 



14330 PUTOMG 11580 11890 11910 13250 13270 13290 14420 
1435C PUTOMH 10850 12100 12110 13140 13150 



175 



-o 





13890 


PUTPHI 


03200 


05180 


06710 


13860 


13870 


13990 


14000 


14070 




■ 




07150 


RETURN 


07260 


07290 


07360 
















%J 


16180 


F.VINST 


04200 


14660 


14750 


14910 




15280 












15790 


SBSWCH 


02090 


05050 


05160 


09990 


10130 


10620 












0992C 


SCRIPT 


10610 






















0106C 


SDECGD 


C1230 


01594 


02075 


02075 
















00070 


SKPPCH 


00060 


00140 


C6750 


07410 


10760 


14040 


14220 










07820 


SMLOCP 


07860 


07920 


08110 


08120 


08140 














07840 


SMTLU1 


00640 


C0670 


00690 


00710 


02210 


02230 


04610 


05220 


05270 


05310 








C539C 


0559C 


05790 


05800 


06830 


07790 


07800 


07830 


07960 


08160 








C8360 


0837C 


C83 8C 


09920 


10030 














0520C 


STATNO 


04350 


0507C 


05240 


















011CC 


STDC02 


01170 






















C745C 


STGPER 


07440 


07560 




















15590 


STOPSR 


06490 






















1764C 


SYWBSB 


10070 


10240 


10400 


10460 
















09860 


SYMCHK 


09070 






















059 5 C 


TESTDC 


02C00 


05740 


06200 


06380 


06610 


15450 












1184C 


TFSAVE 


08330 


11950 




















15480 


TRAREC 


15305 


15380 




















02900 


TRNS8R 


02430 


02860 


03020 


03090 


03390 


03560 


03670 


03710 








1023C 


TWODIM 


10100 






















1587C 


USEDFS 


06840 


07670 


07670 


08210 


08250 


14480 


14490 










15680 


WATYSC 


01770 






















02920 


WICTST 


02670 


03520 


03590 


















055 60 


XETURN 


01450 


05530 


C5540 


05560 


05620 













*»*•* LISTING OF THE PDQ FORTRAN CLC2 PROCESSUS 



LO — KM0005 0*26 000 4 7 000 r > 4 1 6 00 r < 4- 111000^4-00 031 9 - 104500012002404900 2J^~ 
— J0-0035-010C2600Q90C0299 170006000 J40- 39 360000000500490000001 23456789 123456^J- 
LM — COCOO 102 390003 3001004900072057445800465659635941550043534372000*0000 36000000 

LO-00 £0005 003600 16000 50036 030000 500 36 003 6 OOP 500 3 60000000 5QQ 

K000098001992 500000000001100103000-11 100098000- 11 200 11 3000- 147000920 120036001 950 

-5001600 11 300-75450006800 1964900008 

0123456789 123456789-2 3456789- J34 56789- JK456789-JKL56739-JKLH6789-JKLMN 789- JKLtfNO 
89-JKL*N0P9-JKLMNCPQ*0 16 1152 3000-0 1608427R9999 16 16 13 5-660026 16593 16135 1500459000 
49 173960 3600 1C000 5003600 18000 500 360026 000500490000000000000 34900 15201600 10 3-0200 
-0462 161 1387000- 12416 13 50 842 747005340 11003 40000000 10239 1656300 100 15004590000 J 260 
-053870211487470069400400 371 1 22 500 500 1 60 064 1J 736926006800064 1 1 200641000-2 1400641 
-0613 J 7225470046201 300 2600470000004300 67400470430067400469490058201600000-00- *49 
-0690730034000000010 237172250010046006 9400400460080200100340000000102 38161310010 
-0766340000000 10 1391 722500 100 15007 3 10000649008 100 161 08 64J676443008541 722 53 1 17224 
-0841 1722649008220 14 1722 5000M347009260 1200240090 11722747009260 12-0240090 11722 946 
-09184620 1 20014 17225000P0470 13 140 1300 1709248-096226009 8408346440 1022000041 500701 
-0997P260 102008346260 1069000042 60 10 390 8346 2 600004 16 135 260 106 308346320000500000 16 
-1073 11 80- QC8926 16290 16 13526 16 14 108427 160 1192-00883 11675 11722 4450 11 5016752490 130 
- 114320 141675 2000-0460 12460 12002 6-0000 16752 33-00000L7-* 140 11 80-00994601266012001 
-122 3101180000-21101192000-231167511675349011300320008800000240009916155460276 30 
-1298120027148201481931167^1172242601577049831416752000-0 31167511575346015660120 
-137421015 7708195450133816752 260141601572 310000001194490143003116753172243116 751 
-1449 16753 141 6752C00L3470 15860 1200 31 1675 116753450 15 101 675 649 115 140 1416752G00K446 
- 1 5241 15 1401 2C014167 52000K 3470 14 7 80 120049051 9303 1J72 241722 6490 13 860450 1442 167561 
~ 1 5994 1722 5 C0CM6470 16340 1200 171 14260P1 701417225000M946045 0001200 14 1722 500GM 74605 
- 16746220 1200 14172 2 5000N446044360 1200 141722 5000H2470 17 740 1200 14172 35000.\'74606 050 
- 1750 12001 5 15991000044900462 014 17225000N 34701842 01200 14172 3 3000N6 47066400 1300460 
-1825446 80120049071 160 14 17 2 2 5000N94 70 1 89001 2Q0 14 172 290000 3460627001200 14 17225000 
— 19000 24607076 01 20 0141 722 5 0u0N74602 12601 200460226 20 1100 14 1 7 22 500 OM 1460231801 2QjQl 
-1975417225000^547 11 64601200 1417231000N7 4606250 120047020540 1 3001 5 159910 00014lJiD 
-20504 62045064 10 1 7 23 3490724004302094 1 723549 1 16460 160 1428-26063 1 17224172364901 314 
-2 126 14 17227000N946022 3001 2004 7C70560 1100 3 117224 17234141 7225 0000347022 100 12003 11 
-22017224172 321612916-2882490239803117224172341612916-29544902398 014172250000331 
-2276 17224 172 324702 366 CI 2CG 16 129 16-29 18490239803 117224172 36 14 1722 500003470238601 
-235 1200 31 17224 172 3216 129 16-2 7984902 3980 1612916-2 834 16 129 11000K7 1417225000094602 
-242 644601 IOC 171 142 60P 173 1709248-245 8260 24 3008426 16 129 21-0006 16 12 92 50-00*27 1 3996 
-250 11 399526 129 160 272845025 3 8 172 2749066400 14 17225000K33 117222 1722447025 180120045 
-25772618172 271600808-20744900 546016 01428-14301500698000001709474-26422602665108 
-2 652643 11 29 170000045C2690172271 6 129 16- 39 1427 13996 13995 121 08 64-00094902 51 80 J7039 
-27273 8-2 7 34M3 56 41 440C 626442 59 56646 349 5545 620* 31 172241675126027970 8 3461100004000 
-280 2-626028 2 108 3461 50000^ C000K1 1162 90-0006 27 148 32 1483 11603061 000 J 7 1603546 J 675 83 
-2 8771 1674904425 160349 1000CC3 1172241 72 26450294417225 1600808-39 1049005460 14172250 
-2954K3460290CC120C 14 17225000-046029000 1200 141722 5000K4470306001 200 16035 5 1-27261 
-3029603570- 29001 60306 1000M49035280 17 114260P 17 1470365801 100 1417225000M047039620 
-3 1041 100 14 1722 5000094604 09L01 100 250 3547 1722 ^160347900-00 1417225000H1 46032760120 
-3 180 14 1722 5000M447039620 1300460 32 760 1200 14 172 2 5000H946032 760 1200 1603479000-0 141 
-3255722 5000*6460396201 1003 11722417226 1709248000-0 170 3574000-02603995 172 13 160355 
-33301000-04403468034782703 95 003949141722 5000-347039620120031172241722627039500 3 
-340594914172 2500009470396 2011001709248000-03217212000002603 55117213330354800000 
-348033035500C000320355 100000 320354700000 1603570-291 21 103546000-5 1616758-00002 11 
-3555675 10 3539490000000032 17 2 12000002603549 172 13220349 1172 13470364601 30014172 130 
-3632-0460944801 10017 114260P 1721 41722 5000K 147037 140 1200 16035 51-3295 1603 570-2 8 334 
-370 7903 52 8046029000 1100 14 17225000-44 7039620 1200 160355 1-35 74 1603 5 70-3732490352 30 
-3782 16038 12J67522 103812 16751 3100000 162892503841 1675 1430385400210 11 16 75 1000-1261 
-3 857675 8161352116758167512 714556167511600808-0810490046204303930172354903962031 
-393217224 1723649029 J20450944 3 17225 17 114260P 17 1160 352 7-404232 172 120000026039971 7 
-40072134902912022034910 39 954703646013001603570-401816 03527-29121203997000-14603 
-40825280 110049029 120 1709248000-02 703 95003949 1417225000(^460423 80 12001417225Q ^y 

_____________ 17Z 



-4157 84703 974 012CC1703 574000- 1 6 3 5 SI- 36 90 1 604329-43503 1 172241 72 2 6 1603570-4282 49 
-42333528017 03 574000-016035 51- 3654 1604329-4406490421801 6035 39 00-232172120000026 
-4309355 1172131603^70-4 35 049(^230 3117224172261603570-43 82260355 1 1722 5490 3523012 
-43841 72 13000- 14604 3 380 11 00 160 3^39000- 54902900-0 74900000 #1500699000043 11 72241 724 
-4459249096020 31 17224 17236 L 50 Q6990000N490960203 117224 172 301 6 16972000M91 6 1152 3000 
-4534*9150069700001 3200702 0C0C049 11526033 172 120000033 172 10000003 3 1720 8Q000033 1 72 
-461060000024172130466146046720120017114260-07602455562450*0000000031000000 51771 
-46854172370O0G9470475601 1002500009 1723731172241724014 17225000Q946047680 11001 711 
-47604260-0771605936-000 51 60 5067000K04904984026048231086431 1290 1000002612900 1623 
-483533112910163244404868129074904880027139 7613975440490412908271399613995430494 
—4910812908310000005088210000616 1 35490496003 1 0000005 1 32 1605936— 0041 3 1 J 7224 172261 
-4985705 91 8-4996 1405936-004 147050320 1200 1605936-0005 1 105936000 J24504972 172271714 
-5060522 000M41605067000M44900462 043-002400053490000000 00044000000006049000000 140 
-5 137600-00046000000120046000000 11 0049000000*MOOOOOOOOOQQM9000000*3 1172241722 817 
-5 2139248-5222260523908346 1200004000L6 14 17225000K34705 2820120* 17 114260-0781 70947 
-52884-5294K6000 110530 526000060842726056050842716056200-00 11605444-5605 3 11722417 
-5363226 14 1722 500CP04605402C 1300 1709474-54261709248000-02608427 172 131 105444-0005 
-54382600000084274^053541722726000 11056 104405498000081 5000000000 J 17 14522000 J2260 
-55135610 161 35260555705564 1 10555 7000 J9451 140800003310000005601 1105564-0020260842 
-55887165824900462-0000-0000-000 0-0000*31 17224 17232 141722 5000K446Q57140 120031 000 
-566670471709248-56822600005084261 714522000-849004620 1605936J68233 11674906984150 
-57426980000 13 11 72 24 172261 7C59 16-5 7741 1167 5 1000-41 105936000-4430573 31 722421 16787 
-5817161352116794161352116806161353117224172281709474-5 8701500698000002616758084 
-5892272714556167514900462000001709248-59 30260000008426260596408 3464405986 000052 
-5967605 984C59 17490000002 60600808 3464406018000044905966026060 35083461600005-0090 
-6042490596601 706482-60623 100000065982 10000503426 1714522000 J62606115083462600Q04 
-61171613526000880842726162901613533162 86000003100089163463100091162843100098163 
-6 1924727 14868 148672 100006 16 1352 6000 10084261714522000 J2490046203206270Q000049062 
-6267820330627000COO 1706482-62943 100000066062606 323083462 100006000041714522000-8 
-634244004620627026 1614 108427 1216 141 000J0261629Q 16 1352 714820 1481949004620 1706482 
-6417-6422 3 1000000662726000050842621000 11 16 135 1714522000 J24906640000003 1172241 72 
-6492261417225000094706482011001709248-6530260 65 71083462606576083461206571000-12 
-65676C0009C0C0926065960643 1499876 5049-00 J0049-000Q026-000K00001* JP00002-0012+44 
-66433890007013100000069471205564-0020260669905564310004000000260671806699150000 
-6723* 110671 8-00 102606754C6 7 18260C00016 349 11 06 754-00 102606790067542600000 1634926 
-6802600044260001100059260001800044260002300054260003000049440688000007150000000 
-6879244069C4C00191 50001 200C02 17 14522000L61 101069000L64706652012004903890J J00000 
-6959J4000CCCOCOOtt7000000110C*-68JL00009000-4L2000950COOOJ100099-0067K60005 90009 
-70349K60006500000MR000000* 16 128 95000^ 849072000 3 117224172 3226 I 2901071 1549071400 J 
-710 97 0245 2- 3 11722417238 16128 9500 0L4 170924 8000- 026 12905 172 1333 12902000004 5 07 2 001 
-718472251612905-000031129061634 5271397613975490664004902 562*3100000072321714522 
-7262-81 614756-728449 14702016 14756 J45924507316166694907 340043073400045938 1666900 
-733740026 166C0 16 135 16 1721 3C0R99 160947 3-73844908230026 166050842726 16610033473 116 
-7 412611161563116661165782607491165 822607474165824607904001003400000*01022607901 
-749244075560790 144075 360789816C7674-789849076 320 1607674-78924907632044076 120789 
-7567914079C10CR 9946079040 1200 1607674-7899490763204407 7120789849075 1603807470001 
-76443400000*0 10 J440773207655380000000 100 120749 1 000 JO 1 20 7474000J 0490745603307655 
-772449076 32C390 789300 10C3207655 000QQ260779007490 1207790000- 14407680000052607 314 
-7800779044078240000649076 800260784607790260747400009340000000101380747000100120 
-7 875749 1000K049076920000CQOOOOO**430805600459460799600300 3 100402 165964907952-01 
-795052340000000 10 23902735001 003600000005004900000* 15 166440000 J 16 16 595-040238 165 
-802591004003802729004003 80794700400340000000102 39165110010026080981658326000001 
-8 10063492608 15708 097 12080 98000 JO 1 408098 J739646080920 11001 50000800000260 5 5640809 
-8 175822 162C51620534K0000201C21 5 1599 100001 39 1655 1001 0041N 100000000 15082250000833 
-82501635000400381643000400490040202608427165822608346165 81490833601208426000-11 
-8325208346000-12617223000094408380172214408312172114908596044084281721926034261 
-8400722215 172 190000049083 12R99994508596 1722345 11408 172 222608469C83462600009 1721 
-847534408543 172 1333 1721 300000 15 172 140000*3 100089 1720426000880842727 14868 1486743 
-8551 886400699 14 1722 5000K44 71 13320 1200 171 14260-07224172 131722346083 120 1400470331 
-86262012002417223172134608312014003117215108992.40834716588471130801100250871403 



/7Z 



-8701426430872 800200 11C342 6000-1 1608782 J6 I 052608775084263208774000001 108782-0000 
-8776 15 161050000115084270000016 17225000M6 151 1597000001609473-8844491 134401500697 



-885 5 149 1258 20 2609 1230842 7 141 7225Q00K446039200 120044091920069949091240 1208346000 
-8930-12608997083462609117083461109122000-13117222172241709248000-02619994172133 
-90051172221 7224141722 3000-44609224012002617223172131709248000-02317223172133200 
-908 1960000C 3 11722 21 72 2422091 2200099 16 19999-00004509156172271 5006990000049004620 
-9 156 14 17225000K 33 117222 1722446092 0401 200171 14260-0794509602 1722 7490919202209122 
-923 1172 134909 11200000 16 1 72090-0001609290 J72Q91 109290000- 12517210172253117222172 
-9306244 5093281722 5490937601417225000-046092960120014172250000946092720110014092 
-938 190J72 1346 1046201 10C26C94230929026 172 130000032 172100000044094500924642260947 
-9456309247490 8280000001417225000-3151 159700000460985001 200 1417225000P0460985001 
-953 1300 141 722 5000*846095660 110049096020 14 17225000N546C960201 1001 51 1597000021609 
-9606632 J720526172 141 14892617205 172253 117222 172241109632000-2 1417225000M04610530 
-9682 13003 3 172 120000033 172 100Q0C0331 720800000331720600000490828001410008 J72 10151 
-975715970000246 10462C1 100 16172050-000260981310003261721400000321721300000321721 
-9838490 82 800000026 1721 308235 1609849 JO 118 1610008 J72061417225000P0470993001200311 
-991372241722649098860 1417225000-346 1005801 200 141 722500009470974201 1001410008 J72 
-99881 3461 00 14C1 1002500000 172253 117224 17226 11 10008-000 1J 117205000-14909930026102 
J006320 1000814 1720 5000N146 101 060 12001609849 J022626101600984912 17205000-1 31 172241 
JO 1387226 14 17 2 2500 CP0460000GO 120047 102460 1 100 16 101 60J0226 14102 20 J 72 13461022601 10 
J02142 500000 17225 11 10220-000 149 101 300 1417225000M54710438012002610436100481417227 
J0292K04 7 1033CC13004710342012001 5104270000231 17224 1722625 10437172273117224172281 
J03674 1722 5000C947 104260 11 002 2 104361043725104371722531 17224172261 117205-00004610 
J04424620 1400441047417235 17 114260-0731 511 597000003217213000004308280172061617205 
J0520-049082PC01409632J72 154709626012004404640007024904568026 1060808346121060900 
J0596J 0440 85 84C0C0 526 1C632 10608441064200006490858401 5006980000231 108891089826108 
J067 19308427 11 10892000-126 1072408346 12 10724000-12600004000041711084J073831000051 
JC7466 13 722 10892 11 287 141 7225000K 346 109080 1200441 1000000093 117224172261 5006980000 
J08222 5 10896 11 5974 31 137600700 11 10864000-9310000010889261088809473499876500000000 
J0898-O000000*01711084J09203 100010 1613723000041 128732000960000022108920009921 108 
J0973920000444 11000000 1449 1C786C 11 11387000- 126108951 1387131 1387000 J51611066J7203 ^ 
J 104822 11C6600099310000000C01 491 079800000 151 1277000031616141-000-16112870-000311 f L) 
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J 150255560300000* 16 115230-0-016151 1100-00 1615020 J69721610864J6764451183417227141 
J 15771 523000L3461 16580 1200 14 1 1523000KM46 1 164601200141 1523000K4471245001200 171142 
J 165260-07117 12932000-0441 5dl40069643 1175012908431173012924441177012906441180212 
J 1727922 33006960000049 1.58 140431 1706 129244911730031 12896129013 1129011291749160420 
J 180226 12900 12905 26 129 05 12 92 149 160300 14 17 225 000M0471 18 820 1100 1500697000001709474 
J 1 877 J 1562 14 172 250 00L3461 19 1801 200 3300 696 00000141 722 5000 J046 121420 1200 14 17225000 
J 195 2K 046 12 130 01200150069700000 141722 5000-446 12 29401 2001417225000K146 1249801 2001 
J2027417225000J44612206012001417225000K44612262012001417225000L34612570012001417 
J2 102225000-3461 185801 20049 11 64601 5007000000543 121740069715007000000049124500150 
J2178697000C03 117224 1722649 11 5620141 7227000 J447124980120031 172221722415007000000 \ 
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10540 


10550 













0937C 
0956C 


NUMB 1 
NUM62 


09140 
09430 


09180 
0946C 


09250 
09530 


09350 
09540 


09360 
09550 


09390 
09570 


09430 








0948C 
094CC 


NUMB3 
NUM8 5 


09240 
C9620 


09580 


















10835 


0MM1 


00020 
11710 


03910 
11730 


10830 
11750 


10880 
11770 


10900 
11790 


10920 
11810 


11600 
12120 


11650 
12320 


11670 
12340 


11690 
12400 


1444C 


OP 


13160 
12370 


13240 
12440 


13260 
12630 


13280 
12660 


14360 
12740 


12770 


12860 


12890 


12950 


14460 


16550 


CUT 


14510 

04050 


15510 
04080 


04130 


04280 


04290 


04320 


04330 


04360 


04380 


04680 






04690 
05580 


04820 
05600 


04830 
05700 


04840 
05710 


04970 
05720 


04990 
05960 


05360 
05990 


05370 
06090 


05480 
06090 


05490 
06100 






C6100 
06170 


06110 
06660 


06110 
10050 


06120 
10070 


06120 
10110 


06130 
10240 


06130 
10250 


06140 
10280 


06150 
10290 


06160 
10370 






13370 
13510 


13380 
13510 


13390 
13530 


13400 
13530 


13420 
13540 


13420 
13550 


13450 
13550 


13460 
13560 


13470 
13560 


13500 
13570 






13580 
13730 


13600 
13730 


13610 
13740 


13610 
13740 


13620 
13760 


13660 
13770 


13700 
13780 


13710 
13790 


13720 
13800 


13720 
13810 


g% 16540 


□VERL 


13810 
C0130 


13930 


13950 


13960 


13960 


17360 










m# C639C 
10670 


PAUSE 
PETA 


01620 
10150 




















16640 


PHI 


00400 
01000 


00780 
01030 


00790 
01060 


00820 
01070 


00840 
01070 


00900 
01080 


00900 
01100 


00970 
01100 


00990 
OHIO 


01000 

01140 ; 






01160 
03170 


01230 
0318C 


02200 
03190 


02280 
03190 


02290 
03200 


02880 
03900 


02890 
05030 


03120 
05040 


03130 
05080 


03150 
05110 


C975C 


PLUS 


05120 
09610 


05130 
09620 


05170 
09660 


05180 
09680 


10850 
09710 


10860 
09720 


13930 
09720 


13940 
09730 


13940 


17660 


C170C 
0687^ 


PRINT 
PSTAB 


01610 




















0299G 
13950 


PUMCT 
PUTTC 


02480 
13900 


3380 
13980 


140 30 
















13850 


PUTX 


C4410 
134 30 


04850 
13520 


05000 
13590 


05380 
13630 


05500 
13640 


05610 
13690 


05730 
13750 


06180 
13780 


06670 
13820 


13410 
13830 


133 30 


PUT1 


13860 
04240 


13890 
04240 


13920 
06600 


15410 

06600 


15430 
11940 


11940 


13030 


13030 


14570 


14570 


13360 


PUT2 


14610 
01970 


14610 
01970 


14760 
02140 


14760 
02140 


15050 
04260 


15050 
04260 


15250 
13050 


15250 
13050 


15420 
13330 


15420 
13340 


10110 


QUERY 


13 360 
10300 


14770 

10380 


14770 
10650 


15260 


15260 


15290 


15290 








15660 
1565C 


RACD 
RATY 


01840 
01870 




















0184C 
0332C 


RDCC 
RPrMT 


01760 

02680 


03370 


03410 


03510 














03390 
03370 


RPT1 
RP T2 


03320 
C3390 




















1572C 
^ 16080 


RTPAR 
RVSGN 


0308C 
161 80 


1618G 





















lie I U 


S 


1 1 1 8 


11480 


12130 


1320 


13300 


14380 












0903C 


SALT 


C9010 


09050 


098 60 


09870 
















0404C 


SENSE 


04000 






















1575C 


SLASH 


C 30 1 C 




















007 30 


SLOT 


00680 


06190 




















07930 


SPCNT 


00030 


00090 


00760 


01930 


04690 


04700 


04780 


04300 


04890 


04990 








C 5 1 7 


052 10 


5 3 7 C 


05410 


05490 


05630 


05710 


06820 


06885 


0689^ 


- - 






06985 


07115 


07780 


07820 


07900 


08030 


08180 


08200 


08220 


08260 








08350 


100 10 


10460 


1'0640 
















0794C 


SHNOT 


07890 






















077€C 


SMTLU 


06800 


08880 


09120 


09220 


09810 


098 30 


13090 










G81GC 


SHTST 


07870 


07940 


09940 


09970 
















1173C 


SS 


10930 


11440 




















1115C 


SSA 


10870 


11380 




















1095C 


SSb 


1089C 






















1525C 


SSBCD 


15170 


15330 




















1 1650 


SSC 


1 1620 


131 80 




















12090 


SSCA 


1 1660 






















1 1600 


SSCA1 


11280 






















12000 


SSCB 


11680 






















1 1420 


5S00 1 


11230 






















11770 


SSI 


1 1300 


115 10 




















11810 


SS? 


11540 






















11500 


SS3 


11320 


13230 




















11410 


SS4 


11250 






















11560 


SS5 


11340 


1198C 




















1 1830 


SS6 


1 1360 






















06450 


STOP 


01470 






















14090 


SUB I 


1337 






















10675 


SUBN 


00080 


10320 


10330 


10340 
















15700 


SWC 


02180 






















02470 


SWLP 


02270 


0241C 


02440 


















16660 


SYM 


02680 


02790 


02800 


02920 


02930 


02940 


02960 


03330 


03340 


03650 








03660 


03750 


03960 


03970 


03980 


03990 


04000 


04780 


06560 


06730 








07860 


07970 


07980 


07990 


08000 


08020 


08100 


08 1 30 


08420 


08460 








03460 


08480 


08480 


08650 


08670 


08680 


08700 


08790 


08820 


08830 








09010 


09020 


09030 


09080 


09090 


09100 


09110 


09140 


09170 


091^0 




.... 




09200 


09210 


09230 


09250 


09350 


09400 


09440 


09480 


09540 


097^0 








09770 


098 CO 


09810 


9 8 2 


09360 


10540 


1 1 A "7 f> 

13070 










14810 


TEMP 


14530 


14580 


14740 


14780 


15190 


15300 












0417C 


TEN 


1 1720 






















1609C 


TFFAC 


04190 


12200 


14590 


15030 
















04410 


THAT 


04140 






















0265C 


TIcR 


02560 


02 590 


02610 


















17660 


TOP 


10350 


13480 




















1535C 


TRACE 


C133G 


01562 


07687 


















15610 


TRACX 


15480 






















02870 


TRANS 


02280 


2420 


02450 


02530 


02690 


02800 


02810 


02830 


02840 


02850 








02890 


02930 


030 10 


03030 


03080 


3100 


03 3 2 




3**2U 


r> tl ~x f\ 
1) j J 3U 








03570 


03600 


03640 


03660 


03680 


03720 


03730 


03 770 








- ■ 

17100 


TRY 


17290 






















15210 


TW AGS 


15130 


15160 




















00340 


TYST 


00385 


10765 




















09510 


VAHBR 


09470 


09530 




















15670 


WACD 


016 70 






















1569C 


WATY 


01710 






















03450 


WIDTH 


02300 


02940 


03170 


















1 5/4C 


XTYPE 


03600 






















10785 


ZERO 9 


00150 


0902G 




















15410 


ZCT 


li090 


11130 


15360 


15390 

















2/7 



018C0 
053 5 C 


ACCEPT 
BEGPRO 


01520 
013 36 






- - 


. . ._. 







- ■ - - 







C096C 
161 10 


BLANKS 

n n i »i c T 

8R I NS T 


006 20 
C0750 


OCBCO" 
02 250 


01596 
0314 


■ 

0542 


5430 


5450 


5 6 5 


14150 


14 160 




16600 


BUF8AS 


06770 
14030 


06 8 20 


06830 


06340 


068*0 


07430 


7520 


75 30 


13 900 


13950 


1039C 
1303C 


CGLGCT 
COMMON 


10060 
12510 


10230 
12 570 


10560 
1 3040 


... 

146 70 


14700 


14900 


14930 




1 i> u o o 


i i o t r\ 
I ju iu 


15640 


COMPLT 


15110 
02130 




















05030 
03240 


COMPUT 
CGNFM T 


04960 
02330 


05100 
05 950 


06210 


10 7 70 














06380 
06510 


CONTIN 
CDNTRL 


01380 
01400 


06460 


064 70 
















08530 
158CC 


D I MONT 
DMSWCH 


08350 
3 8 1 C 


08390 
03 8 60 


C851C 
080 50 


08650 
08354 


0855C 












06230 
15820 


DORCRD 
DO SUCH 


05960 
00660 


059 50 


















04340 
0553C 


ELEVEN 
ENDPRO 


00980 
015 54 


041*0 


04400 
















10790 
09780 


ERRMSS 
EXCESS 


10740 

088C0 


10750 
09160 


09 760 
















05690 
16580 


EXPRGC 
FC TEND 


01 574 

06875 


075 90 


316 


17 040 


1 7 1 7C 


17 190 


172 50 


1 72 70 






03120 
15810 


FINISH 
FLAG5W 


3090 
1 1 * C 


106 80 


11410 


1 14 30 


11*30 


12480 


126 20 


12670 


12730 


129 3 (; 


09430 


flnumb 


12990 
332 


143 30 


14410 


14S90 


14980 


15020 


15100 








15910 
16160 


FLOAT 1 
FLOAT? 


16160 
15160 


16160 


















02200 
C074C 


FORMAT 
FRMAT1 


00950 
C091C 


















" - ■ - ■ • 


00840 
15860 


FRMAT2 
FRMSCT 


00740 
0940 


00770 


00 B 30 


00 860 


00880 


00 8 90 










C914C 
10895 


FXNUMB 
FXGP.FL 


9 340 
82 80 


08900 


09000 


09150 


09 790 


10140 


15520 








06280 
03640 


GO TOR C 
HCCNT 1 


5 040 
03560 




















C371C 
037CC 


HCCNT2 
HCCNT 3 


03540 
C 3 7 6 


03670 
















- 


03750 
0445C 


HC0NT4 
IFPCFL 


03610 
04280 


037 10 


















045CC 
0456C 


IFRCFX 
IFSSPC 


04320 
04050 




















15830 
07685 


IFStfCH 
I NCR EK 


CO 150 
1 C 2 C 


0393U 


98 8 


llo?0 














C218C 
16440 


IOINST 
LRCUT2 


01980 
C 7 7 5 C 




















16570 
107 20 


MLMCAP 
NOSPCE 


04890 
048 6 6 


C6850 
079*0 


C7780 


07790 


17030 


17040 










09230 
016CC 


NUMBER 
OUTCHK 


08910 
01490 


0.89 30 


09? 40 


09460 


C9470 












0281C 
10630 


PRETRN 
PUTETA 


02 700 
08080 


08170 


8 3 
















10170 


PUTcTE 


00400 
1223C 


021CC 
1306C 


2150 
1 3 i 1 C 


04170 


10690 


lCr6C 


1 1850 


12000 


12010 


12220 


1433C 
14350 


PUTCMG 
PUTCMH 


1 1580 
It; 8 50 


1 1890 
17 ICC 


119 10 
12110 


I3, ;r u 
13140 


13270 
13150 


13290 


14420 








1389C 
161 80 


PUTPHI 
RVINST 


C 3200 
04200 


05180 
1 4 6 6 


067 10 
1475 


) 3 , 60 
14910 


13870 

1.52 80 


13990 


14000 


14070 






2/X 



15790 SBSWCH 02080 05050 05160 09990 10130 10620 

09920 SCRIPT 10610 : 

0106C SDECGO 01230 01594 02075 02075 

000 7 C SKPPCH 00060 00140 00338 06750 06910 07410 10760 14040 14220 



05200 
01100 



D 



07820 SMLOGP 07860 07920 08110 08120 08140 

0784C SMTLU1 00640 00670 00690 00710 02210 02230 04610 05220 05270 05310 
053^0 05590 05790 05800 06330 06915 06965 07105 07125 07790 
07800 07830 07960 08160 08360 08370 08380 09920 10030 



STATNO 
STDC02 



04350 
01170 



05070 05240 



07450 
15590 



STOPER 
STCPSR 



07440 
0649C 



07560 



17640 
0986C 



SYMBSB 
SYMCHK 



10070 
09070 



10240 10400 10460 



05950 TESTDO 02000 05740 06200 06380 06610 15450 
1184C TFSAVE 08330 11950 



15480 TRAREC 15305 1538C 

02900 TRNSBR 02430 02860 03020 03090 03390 03560 03670 03710 



1023C 
15870 



TWGDIM 
USEDFS 



10100 
06840 



07670 07670 08210 08250 14480 14490 



156 80 
029 20 



WATYSC 
WIDTST 



01770 
02670 



03520 03590 



05560 



XETVJRN 01450 05530 05540 05560 05620 



Z/9 



o 



*•**« LISTING OF THE PDQ FORTRAN CLT2 PROCESSOR 

#»*** 

LO — KPCOC50* 1 6 COCA 7 C o 4 I 6CG054-00011 100054-00 003 1-0 139-00 10 45 000 12002404900242- 
— JC-C03 5-01 002600 090002991 70006000J40-39360000000500490000001 23456789 123456789- 



LM — 00000102 390003 30010049000720 5 7445 800465659635941550043536372000*000036000000 

LG-00 80 05 03 600 16 0005003600 3 00005 003600 3 80005003 60000000 500 

K000098C 01992 5000000 0000 11 00 103000-1 11 00098000- 11200 11 3000- 147000920120036001 950 

-50016001 13CO-75 4 50006 300 1964900008 

01234567 891 23456789-2345'>789- J3456739-JK456789-JKL56789- JKLM6789- JKLMN789-JKLHN0 
89-JKLHNCP9-JKLMNCPQ*0 161 145 3000-0 160335 7R9999 16 16065-660026 16523 160651 500459000 
49173440360010000500360018 0005003600260005004900000000000008490015201600103-0200 
-0462 161 1317000- 1241 60650835 747005 3401 10034C00000010239 16493001001 5004590000 J260 
-0 53870211417470069400400371 7 17300500 160064 1J7317260068000641 1200641000-21400641 
-C613J7 17347004620 1 300260047900000430067400470430067400469490058201600000-00- *4 9 
-069C730C340000000 102371 7 17300 1004600694004001617 1710-00025171671606525171 65 1606 
-076 542 5 17 16 3 1606325 17 16 11606225 17 159 1606 1460083 80020043008380045939171570040C46 
-0 84 2 8 8600 1003400000 00102 391 71 59 00 100 15008 390000649008940 16 10794 J66944300938 17 17 
-09 173 3 117 172 171 7449009060 141 7 173000N!347010100 12002400985 17 175470 10100 12-0240098 
-09925 17 17746004620 12001417 173000P047013980 13001709 178-1046260 106808276440110600 
-1 0694 1 50070 10000P260 11040 82 762601 153000042601 123082762600004160652601 1470827632 
-11485000001601264-008926162201606 52616071083571601276-0088311668117172450123416 
-122 36824901 3860 14 1668 2000-046013300120026-00001668233-000001.7-* 1401264-00994601 
-12983500120011012 64000-211012 76000-23116681166834901214032000880000024000991608 
- 1373 54602 852 C 120027 14750 14 74931 1668 1171 72260 166 105067 1416682000-03116681 1668346 
- 1449 165C01 200210 166 10 8 125450 142 2 16682260 15000 16563100000012784901 5 14031 16683171 
- 1 524723 11668 11668 3 14 166820C0L 3470 167001 20031 1668 1166834501 59416686491 1444014166 
-1 5998 2000K 446 11 4440 1200 14 166 8 2 000K34701 5620 1200490528203 1J717217 174490147004501 
-1674526 166861417 1 73000M647C 1 7 1801 200 171 13560P1701417173000M94604584012001417173 
- 1752V 74605 706 01 200 141 7 173000^446045200 1200 14 1 7173000M24701 85 801200141 7183000N74 
- 18276 06 1340 1200 15 15 92 100004490046 20 14 17 173000H34701 92601 20014171 8 1000N647067240 



-1902 1 3C046045 520120049072COO 14 1 71 73C00N947C 197401 20014 1717700003460635401200141 
-1 9777 17300C024607 1600 120C 141 71 73000N74602210012004602346011001417173000M1460240 



-2 05 2 20 1200 141 71 730001* 5471 15 760 1200 141 71 79000N7460633401 2004702 138013001 51592 100 
-21291490046204506494171814907 3240430217817183491157601601512-269031171721718449 
-2205 13980 141 7 175C0GN94602 31 4C 1200470714001 10031 17 172 171 821417173000034702294012 
-228 231 17172 17 180161 2£ 46-2 882490248203 117172 17 1821612846-29544902482014171730000 
-2357331 17172 1718C470245001 200 1612846-29184902482031 17 17217184141717300003470247 
-2434120031 17 172 17 180 1612846-27984902482Q1612846-28341612841000K7141717300009460 
-2 5092 5300 1100 17 113560P 173 1709 178-25422602564083561 612851-000616128550-00*271392 
-2 5846 1392 526 1284602 81 245026221 71 7549067240141 7173000K33 1171 70 171724702602012004 
-265950270217175160089 2-215 8490054601601512-15141500698000001709404-272626027491 
-2 73579431 12 847000004 5027 74 17 175 16 12 846-39142713926 13925 12 10794-000949026020 J703 
-2 8 1 09 3 8-2 8 18N 3 5 64 14400626442 5956646 3495 545 620*311717216681260288108276110000400 
-2386-62602905C827615000050C00K1116220-C00627 1476214761 1603145000 J71603630 J66883 
-2 96 11 1667904 5091 60 3 575000CC 3117 1721 7 1744503028 171731600892-399449005460141 71 730 
-30 38K 34602984 012C0 14 171 73000-046029840 120014171 73000K4470314401200 1603635-27261 
-3 11 3603654-2984 160 3 145000!* 1490 36 120 17 113560P 171470374201 10014171 73000M047040460 
-3 188 11 CO 141 71 73000094 6041 82011002503631 171731603 56300-00 1417173000H 146033600120 
-3264 141 71 73 0OOM44 704(5460 1300460 3 36001 200 1417 173000*946033600 12001603563000-0141 
-33 3971 7 3000M646040460 1100 3 117 17 2 17174 1709178000-0 1703658000-0260407917143160363 
- 34145000-044035 520356227040340403314 171 73000-347040460 12003 11717217174270403404 
-349C33 141 7 173000C947040460 11 CO 1709173000-032 171 42000002603635 171433303632000003 
-356 5 303 634000 CO 3203 63 5000 00 320363 100000 160 3654-2996 11036 30000-5 161 6688-00002 116 
-36406810362 34900000000 321714200000260363 317143220357517143470373001300141714300 
-3716-0460937801100171 13560P1 721 41 7173000K 1470379301200 1603635-32981603654-29724 
-3 79190361204602 984011001417173000-4470404601200160363 5-35741603654-386649036120 
-38661 6038 96 J 66822 10 38 961 668 131 00000162 192503925 1668 14303933002101 116681 000-1261 
-39416688 16C65 21 16 6881668 12 71448616681 1600892-0894490046204304014171834904046031 



40161 7172 171 8449C29R60450937817 173 171 13560P 171 160361 1-4126321714200000260408117 
- 409 11434902 9960220 3 57 :jC 4 G7947Q37300 1300 160 3654-4 102 16036 11-2996 1204081000- 14603 

: 2Zo 



-41666 1201 1 CO A 90 2 9 9601 7091 73000-02 7040 34040 33 1 4 iVl7300W746043220 120014 1 7~^ 
-42418470405 801200170365 8000-016036 35-36901604413-44343117172171741603654-436649 



-431736120170 3658000-0160 3635-36541604413-449049043020160 362 3000-23217142000002, 
-43933635171431603654-443449036120 3117172171741603654-446626036351717349036120 




-4468 17 143000- 1460442201 100 1603623000-54902934-074900000*15006990000431 1717? 171 

-4544490953203 117 172 171 841 50Q699000QM4 9095 3 203 117 1721 7 178 16 16902 000sM9161 145300 QH 

-4619915006970000132007020000049114560 331714200000331714000000331713800000331713 
- 4694600C002t 171430474 54604 7560120017113560-07602455562450*000000003100000052611 
-4769417185000094704 840011002500009171853117172171881417173000094604852011001711 
-48443560-077 1606020-0005 160^ 15 1000KQ4905068026049Q7107943 1128 31 0000026 128 301 621 
-491933112840162 54440495212837490496402 71390613905440498812838271392613925430503 
-49942 1283 83 1C000005 1722 100006 16065490504403 10000005 2 161 606020-0041 3 1J7 172 171741 
-5 06 9706C02- 5080 140602 0-0041 470 5 1 1601 2001606020- 00051 1 0602 0000J24505056171 75 17 14 
- 5144452000M41605151000H4490Q462043-0024000534900Q000000044000000006049Q00000140 
-522 1600-00046000000 120046000000 110049000000*tfOOOOOOOOOOOM9000000*3 117 172 171 7617 
-52979 178-53062605 32 3082 76 120Q004000L6 14 17 173000K 347053660 120* 17 11 3560-0 781 70940 
-5 3724-5378K6p001 105 389260000608 35726056890835716057040-00 11605528-568931 17172 17 
-5 447 174 141 71 73000P046054860 1300 1709404-55 10 1709 173000-02603357 17 143 110552 8-0005 
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